Составить программу которая все "и" меняет на "3", а все "а" меняет на "2"

program zz1;

var s:string; / / задаем переменную строкового типа

i:integer; / / задаем переменную целого типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры страну

for i:=1 to length (s) do / / организуем цикл, в котором переберем все символы от первого до последнего

begin

if s[i] = 'и' then begin delete (s, i, 1); insert ('2', s, i); end; / / производим первую замену

if s[i] = 'а' then begin delete (s, i, 1); insert ('3', s, i); end; / / производим вторую замену

end;

write ('полученная строка = ', s);

end.