お世話になります。
当方スクリプト初心者でよくわからないのでスクリプトについて教えて下さい。

MILL出力データの内容をエディタ内で一括変更したいのですが
例えば、

G00Z5.0;
G00X*Y*;
を
G00Z5.0;
G01X*Y*;
の様にG00Z5.0の次行に続くG00X*Y*のG00のみをG01に変更するスクリプトを作成したいのですが、
下記サンプルを修正して使う場合どの様に変更すれば宜しいでしょうか？

サンプル
Program G00Z5SlashG00Z5;
var
i, leng : integer;
s : string;

begin
leng := EditorLength(); // エディタの行数を取得する
for i:=1 to leng do
Begin
s := EditorRead(i);
if Length(s) < 1 then continue;
if Pos('(G00Z5.0)', s) > 0 then

if Pos('%', s) > 0 then continue;

if Pos('G00Z5.0', s) > 0 then
EditorWrite(i, StringReplace(s, 'G00Z5.0', '/G00Z5.0')); // SlashG00Z5.0へ書き換え

End;
End.