Дано предложение. Заменить в нём все слоги "ах" на "ух".

P. S программа работает для русских символов. Если нужны латинские, то поменяйте все "а","у" и "х" на соответствующие

program n1;

uses crt;

var

st:string;

i:integer;

begin

writeln ('Введите строку') ; readln (st) ;

for i:=1 to length (st) do

if (st[i]='а') and (st[i+1]='х') then st[i]:='у';

writeln (st) ;

end.