Составить программу, заменяющую в заданном тексте одну подстроку на другую — Pascal(Паскаль)

program p48;
  uses crt;
  var a,b,c:string;
      i:integer;
begin
  clrscr;
  write('Иcx текст a=');readln(a);
  write('заменить строку ');readln(b) ;
  write('Ha строку ');readln(c) ;
  i:=i+1;
  repeat
    if copy(a,i,length(b)) = b then
    a:=copy(a,1,i-1)+c+ copy(a,i+length(b) ,length(a));
    i:=i+1;
  until i >length(a)- length(b) + 1;
  writeln('a=',a);
  readln;
end.