Составить программу которая переписывает любую введенную фразу…

program P1; vars1: string; i: integer; begin write ('Fraza: '); read (s1); for i: =1 to length (s1) -1 do beginif s1[i]='ш' then s1[i]: ='х'; if s1[i]='Ш' then s1[i]: ='Х'; end; writeln ('Resultat: ',s1); readln; readln; end.