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

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

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

[volvo]

RaV - последнее предупреждение... Еще раз увижу программу, в которой делается вот ЭТО:

for i:=1 to length(x)do
  if (x[i]=' ')and(x[i+1]=' ') then begin
    delete(x,i,1);
    i:=i-1; { <-- Махинации с управляющей переменной цикла !!! }
  end;

- это закончится для тебя В ЛУЧШЕМ СЛУЧАЕ - премодом. Все ясно?