こういった場合はStringListに格納した方が解りやすく出来ます。

// NCコードに行の挿入例 2014/10/29 NabeTech
// エディタにNCデータを準備しておいて下さい。

Program WorkPositionEdit;
var
i, leng : integer;
s : string;
sl : stringlist;

begin
sl := stringlist.Create; // StringListの利用例
sl.Clear;

leng := EditorLength(); // エディタの行数を取得する
for i:=1 to leng do // StringListに全行を格納する
sl.Add(EditorRead(i));

EditorCrear(); // エディタの消去

for i:=1 to leng do
Begin
s := sl.GetItem(i-1); // 注:インデックスと違う
Writeln(s);
if Length(s) < 1 then continue;
if Pos('%', s) > 0 then continue;
Writeln('M01');
End;

sl.Free; // 解放を忘れずに
End.