Дана строка символов. В тех словах, которые оканчиваются сочетанием букв “ing”, заменить это окончание на “ed” — Pascal(Паскаль)

var
i,q,k,sum:integer;
s,s1:string;
begin
readln(s);
for i:=1 to length(s) do
 if (s[i]='i') and (s[i+1]='n') and (s[i+2]='g') and ((s[i+3]=' ') or (i+2=length(s))) then begin delete(s,i,3); insert('ed',s,i); end;
writeln(s);
end.

program stroka;
Var
  H,i,ing: Integer;
  S,Slovo,NewS: String;
begin
   Writeln('Vvedite S');
   Readln(S);
   i:= 1;
   Slovo:= '';
   NewS:= '';
   While Length(S) > 0 do begin
      H:= Pos(' ',S);
      if H > 0 then begin
         Slovo:= Copy(S,1,H-1);
         Delete(S,1,H);
        end else begin
         Slovo:= S;
         S:= '';
      end;
      if Length(Slovo) > 3 then begin
         if Copy(Slovo,length(Slovo)-2,3) = 'ing' then begin
            NewS:= NewS + Copy(Slovo,1,Length(Slovo)-3) + 'ed ';
           end else begin
            NewS:= NewS + Slovo + ' ';
         end;
        end else begin
         NewS:= NewS + Slovo + ' ';
      end;