составьте программу которая заменяет в строке s буквы е на и и буквы а на о

program n;var    i: integer;      st: string;beginwriteln('Введите строку');readln(st);for i:=1 to length(st) do begin  if st[i]='е' then st[i]:='и';  if st[i]='а' then st[i]:='о';end;writeln(st);end.