Обработка строк в среде TP

[MariKa-91]

помогите проблему найти плиз=)

Дано предложение. Заменить в нем все вхождения буквосочетания "ах" на "ух".

Var x:byte;
a:string;
begin
write('Введите предложение');
readln(a);
while pos(a,'ах')<>0 do
begin
x:=pos (a,'ах');
delete(a,x,2)
insert('ух',a,x)
end;
write( a );
readln
end.

[_-Re@l-_]

ну, например:

 pos(a,'ах')

должно быть наоборот:

pos('ах',a)

Сначала указывают, что ищут, а потом где ищут

[ROMA2PVT]

Uses
   CRT;
var
  S:String;
  I:Integer;
begin
Clrscr;
write('Введите строку: ');
readln(S);
writeln('Строка до изменения: ',s);
while pos('ах',S)>0 do
begin
I:=pos('ах',S);
Delete(S,I,2);
insert('ух',S,I);
end;
writeln('Строка после изменения:=',S);
end.

[MariKa-91]

спасибо, очень выручили=)))
а в блок схеме там без разветвлений будет же,да???

[ROMA2PVT]

Блок-схемка

[MariKa-91]

спасииииииибо!!!!!!! =)