Листинг програмы

program z34;

{ Найти и заменить определённый символ в строке

 введённой с клавиатуры. Программа должна запрашивать

 заменяемый и заменяющий символы, а также подтверждение

 каждой замены символа с сообщением его номера в строке.}

uses crt;

var i,l:longint;a,a1,a2,p:string;

 begin

  clrscr;textcolor(11);

   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.