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

Var a: string;
    i: integer;
begin
     readln(a);
     for i := 1 to length(a) do
         if (a[i] = а) then a[i] := и;
     writeln(a);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.