цикл, удаляющий все пробелы из цикла (Паскаль)

[ma3k]

юзер вводит текст типа стринг, нужен цикл удаляющий все пробелы из цикла.
i:=1;
k:=Lenth(S)
while c<k do
begin
if S[c]=' ' then
begin
Delete(S , c, c);
с:=c-1
end;
end
программа виснет, помогите найти ошибку

[McFrey]

uses crt; 
var s: String; 
begin 
clrscr; 
readln(s); 
While (Pos(' ',s) <> 0) do 
Begin 
Delete(s, Pos(' ',s), 1); 
End; 
writeln(s); 
readln; 
end.

есди помог жми на весы (под моим профилем)))

[Serge_Bliznykov]

ну, можно и исходный код чуть-чуть подправить, чтобы он стал рабочим...

c:=Length(S);
while c>=1 do
begin
  if S[c]=' ' then Delete(S , c, 1);
  с:=c-1;
end;