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

[felmor]

найти и заменить определенный символ в строке, введенной с клавиатуры.Программа должна запрашивать заменяемый и заменяющий символы, а также подтверждение каждой замены символа с сообщением о номере его позиции в строке

Что-то я даже представления не имею как его делать

[Sazary]

uses crt;

var
str,newstr : string;
i,n : integer;
ch,zam : char;

begin
clrscr;
writeln('Vvedite stroku:');
readln(str);
write('Vvedite zamenyaemyj simvol: ');
readln(ch);
write('Vvedite zameshaemyj simvol: ');
readln(zam);
writeln;

newstr:='';
for i:=1 to Length(str) do
 if str[i]=ch then
  begin
  writeln('Vy hotite zamenit simimvol v pozicii ',i,'?(y/n)');
  if readkey = 'y' then
   newstr:=newstr + zam
  else newstr:=newstr + ch;
  end
 else newstr:=newstr + str[i];
 writeln;
 writeln('Konechnaya stroka:');
 writeln(newstr);
readln;
end.