паскаль строки

[Fornarina]

помогите решить задачу на паскале не строки,



операции над строками
:
дан текст. группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. В тех словах, которые заканчиваются на ing, заменить это окончание на en.

[Sazary]

Fornarina Держите: )

uses crt;

var
s : string;
i,k : integer;

begin
clrscr;
writeln('Enter string:');
readln(s);

i:=1;
while i<length(s) do
 begin
 k := pos('ing',copy(s,i,length(s)));

 if k=0 then break;
 if (s[i+k+2]=' ') or (i+k+2>=length(s)) then
  begin
  delete(s,i+k-1,3);
  insert('en',s,i+k-1);
  i:=i+k+3;
  end

 else
  i:=i+k+3;

 if keypressed then break;
 end;

writeln('-------');
writeln(s);

readln;
end.

Пример строки и результата:

Enter string:
jfdsakjfk helling bing   fing fff sing
-------
jfdsakjfk hellen ben   fen fff sen