Строковые переменные

[ramilll]

нужно заменить окончание -ing на -ed. И найти слово с максимальным кол-вом букв a,o,e. Не получается заменить ing на ed(( в чем ошибка?
program pr1;
uses crt;
const gl=['a','e','o'];
rz=[' ',',','.'];
var
s,s1,s2,ST:string;
a:integer;
i,k,mx,g,p:byte;
begin
clrscr;
writeln('vvedite stroky');
readln(s,st);
s:=' '+s;
mx:=0;
for i:=1 to length(s) do
if not (s[i]in rz) and (s[i-1]in rz) then
begin
k:=i;
s1:='';
while not(s[k]in rz) and (k<=length(s))do
begin
s1:=s1+s[k];
k:=k+1;
end;
g:=0;
for p:=1 to length(s1) do
if s1[p] in gl then g:=g+1;
if g>mx then
begin
mx:=g;
s2:=s1;
end;
end;
writeln;
if mx=0 then write('slovo s bykvami aeo net')
else write('bolhe vsego bykva aeo v slove ',s2);
readln;
begin
if pos('ing ',st)=0 then
begin
writeln('slova s dannim okonchaniem net!');
readln;
end;
while pos('ing ',st)>0 do
begin
a:=pos('ing ',st);
delete(st,a,4);
insert('ed ',st,a);
end;
if (pos('ing ',st))=(length(st)-2) then
begin
delete (st, length (st)-2,3);
insert('ed',st, length (st)+1);
end;
writeln(st);
readln;
end;
end.