Pascal замена q на u, u на q

[xkpukx]

Известно, что в начале строки s длиной не более 40 находиться не более 20 латинских букв, за которыми следуют пробелы. Напечатать эту строку, предварительно добавив после каждой буквы q букву u а после каждой буквы u букву q. В случае превышения исходной длины строки, выдать сообщение об ошибке.

program zamena;

uses crt;

var


s:string;

begin

clrscr;

write('vvedite ne bolee 20 latinskix bukv=');  readln(s);

          while ((pos('q',s)>0) or (pos('u',s)>0)) do
          begin

               if pos('q',s)>0 then
               begin
               insert('u',s,pos('q',s));
               delete(s,21,pos(' ',s));
               end;

               if pos('u',s)>0 then
               begin
               insert('q',s,pos('u',s));
               delete(s,21,pos(' ',s));
               end;
          end;



if length(s)>40 then
writeln('oshibka perevishena dlina simvolov(40)')
else
writeln(s);
readln;
end.

Вообще написал как я думал решение данной задачи, еслиб не одно но, когда в строке появляется u или q программа тупо виснит( исправте плиз или наставте на путь истинный..