С клавиатуры вводится текст, затем вводится слово которое нужно найти в тексте , а затем вводится еще одно слово для замены найденного слова. Затем выводится уже отредактированный текст — Pascal(Паскаль)

uses crt;
var st,s1,s2:string;
k:integer;
begin
 clrscr;
 write('Текст -> ');
 readln(st);
 write('Слово для поиска -> ');
 readln(s1);
 write('Слово для замены -> ');
 readln(s2);
 while pos(s1,st)>0 do
 begin
  k:=pos(s1,st);
  delete(st,k,length(s1));
  insert(s2,st,k);
 end; 
 writeln('Преобразованный текст');
 writeln(st);
 readln;
end.