Построить машину тьюринга которая во входном слове все буквы и меняет на е

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

Это на Pascal'е =)