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

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.