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

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