Не могу найти ошибку!, Удаление пробелов Опции

[--==KliM==--]

4. Составьте программу удаления "лишних" пробелов (спаренных, начальных и концевых пробелов строки) в полученной строке.

Код

var x:string;
    i:byte;
begin
writeln('vvedi stroku=');
readln(x);
while length(x)>0 and x[1]=' ' do delete(x,1,1);
while x[length(x)]=' ' do delete (x,length(x),1);
i:=1;
while length(x)>0 do begin
i:=pos('  ',x);
if i=0 then break
end;
writeln(x);
end.

ПОМОГИТЕ ПЛИЗЗ! ЗАВТРА ЭКЗАМЕН!!

[--==KliM==--]

ФУХ! СПАСИБО ОГРОМНОЕ!

[RaV]

Да не зачто!