удаление пробелов с строчки, не работающая прога Опции

[compiler]

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

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) если можна раставьте коментарии о работе программы.