Замена символов в строке

Program pr5;
  uses crt;
    var i,l:longint;a,a1,a2,p:string;
      begin
        clrscr;
        write('введите текст: ');
        readln(a);
        write('заменяемый символ: ');
        readln(a1);
        write('заменяющий символ: ');
        readln(a2);
         if (length(a1)>1)or(length(a2)>1) then halt;l:=length(a);
           for i:=1 to l do
             if a[i]=a1 then
      begin
       clrscr;a[i]:='_';writeln(a);
       writeln('Вы подтверждаете замену ',i,'-ого символа? (y/n)');
       readln(p);
           if p='y' then
           a[i]:=a2[1]
           else a[i]:=a1[1];
      end;
      clrscr;write(a);readln;
 end.

Program pr5;
uses crt;
var a:string;
    c,c1:char;
    i:byte;
begin
clrscr;
write('введите текст: ');
readln(a);
write('заменяемый символ: ');
readln(c);
write('заменяющий символ: ');
readln(c1);
for i:=1 to length(a) do
if a[i]=c then a[i]:=c1;
write(a);
readln
end.

Program pr5;
uses crt;
var a:string;
    c:char;
    i,k:byte;
begin
clrscr;
write('введите текст: ');
readln(a);
repeat
write('номер заменяемого символa: ');
readln(k);
if k>length(a) then write('В строке нет ',k,' символов');
until k in [1..length(a)];
write('заменяющий символ: ');
readln(a2);
a[k]=c;
write(a);
readln
end.