Написать программу,которая считает в строке все символы A и изменяет на символ B

Var   S:string;   i:integer;   A,B:char;BeginWrite('Введите текст: ');ReadLn(S);Write('A = ');ReadLn(A);Write('B = ');ReadLn(B);For i:= 1 to Length(S) do    if S[i] = A then S[i]:=B;WriteLn(S)End.