Строки в паскале

[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.

[ЛенкО]

помогите, плиз, решить задачу. Вычислить длину самого короткого слова в предложении из 3 слов, разделенных пробелами)) (paskal)