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

Вводим
пес сел в котелок.

заменяем
пес на кот

то
кот сел в котелок.

Program NAH;
Type TArray=array[1..20] of string;
Var  StrArray:TArray;
     rez,s,ish,zam,ev1,ea:string;
     i,j,n,b,zn,dl,ap:integer;
Begin
ReadLn(S);
Write('Введите заменяемую подстроку: '); Read(ish); Write('На: '); ReadLn(zam);
n:=length(s);
b:=0;
For i:=1 to n do
begin
if (s[i]=' ') or (s[i]=',') or (s[i]='.') then b:=b+1;
end;
For j:=1 to b do
For i:=1 to n do
if (s[i]=' ') or (s[i]=',') or (s[i]='.') then
   begin
   StrArray[j]:=Copy(s,1,i);
   Delete(s,1,i);
   break;
   end;
For i:=1 to b do
begin
zn:=Length(StrArray[i]);
ev1:=copy(StrArray[i],1,zn-1);
   if ev1=ish then
      begin dl:=length(StrArray[i]);
            delete(StrArray[i],1,dl-1);
            insert(zam,StrArray[i],1);
      end;
end;
For i:=1 to b do
rez:=rez+StrArray[i];
WriteLn(Rez);
end.