Составить программу в паскале , которая заменяет в заданном тексте буквосочетание «abc» на «klmn» — Pascal(Паскаль)

 var
s:string;
i:integer;
begin
readln(s);
while pos('abc',s)>0 do
 begin
  i:=pos('abc',s);
  delete(s,i,3);
  insert('klmn',s,i);
 end;
writeln(s);
end.