Дан текст надо заменить слова к на слова л — Pascal(Паскаль)

uses
  SysUtils;
  var i,n:integer;
      s,k,l:string;
begin
   Write('BBEguTe TeKcT.');
   Writeln;
   Write('TeKcT=');
   Readln(s);
 
   Write('BBeguTe cJloBo k.');
   Writeln;
   Write('k=');
   Readln(k);
 
   Write('BBeguTe cJloBo l.');
   Writeln;
   Write('l=');
   Readln(l);
 
   For i:=1 to Length(s) do
   If pos(k,s)<>0 then
   begin
   n:=pos(k,s);
   Delete(s, n, Length(k));
   Insert(l, s, n);
   end
   else
   Break;
 
   Write('HoBbIU TeKcT:');
   Writeln;
   Write(s);
   Readln;
end.