Составить программу которая все «и» меняет на "3"…

varword: string; i: integer; beginreadln (word); for i: =1 to length (word) dobeginif word[i]='и' then word[i]: ='3'; if word[i]='а' then word[i]: ='2'; end; writeln (word); end.