Поиск и замена подстрок в строке

uses crt;
var s,ps,zm:string;
    i,k:byte;
begin
clrscr;
writeln('Введите строку');
readln(s);
writeln('Введите подстроку для поиска');
readln(ps);
writeln('Введите подстроку для замены');
readln(zm);
k:=0;
for i:=length(s) downto 1 do{идем с конца строки чтобы не изменились 
                             индексы еще не проверенных элементов}
if copy(s,i,length(ps))=ps then{если нашли нужную подстроку}
 begin
  k:=k+1;{считаем}
  insert(zm,s,i);{вставляем перед ней замену}
  delete(s,i+length(zm),length(ps));{удаляем подстроку}
 end;
writeln(s);
write('Всего замен=',k);
readln
end.

uses crt;
var s,ps,zm:string;
    i,k:byte;
    f: text;
begin
clrscr;
assignfile(f, 'Input.txt');
reset(f);
readln(f, s);
readln(f, ps);
readln(f, zm);
k:=0;
for i:=length(s) downto 1 do{идем с конца строки чтобы не изменились 
                             индексы еще не проверенных элементов}
if copy(s,i,length(ps))=ps then{если нашли нужную подстроку}
 begin
  k:=k+1;{считаем}
  insert(zm,s,i);{вставляем перед ней замену}
  delete(s,i+length(zm),length(ps));{удаляем подстроку}
 end;
closefile(f);
assignfile(f, 'Output.txt');
rewrite(f);
writeln(f, s);
write(f, 'Всего замен=',k);
closefile(f);
end.