задача: удалить все пробелы с строчки
не рабочая прога(написана на основе Фаранова):

var
	st : String;
	i : Byte;
begin 
	readln(st);
	i := ord(st [0] ) ; 
	while (i <> 0) and (st[i] = ' ') do  
		begin  
			dec(i); 
			st[0] := chr(i)  
		end; 
	writeln(st);
	readln;
end.

1) где ошибка?
2) если можна раставьте коментарии о работе программы.

Если циклом по строке, то так:

i := 1;
while (i <= Length(s)) do
 if s[i] = ' ' then Delete(s, i, 1)
  else inc(i);

благодарю