[flips]

Задание: нужно написать программу которая удаляет пробелы внутри строки.
Нужна помощь в реализации
Код:

Код:

procedure DelMidSpace(var s:string);
var i,cnt:integer;
begin
 cnt:=length(s);
 for i:=1 to cnt do
  if ord(i)=32 then
   s[i]:=s[i+1];
 cnt:=cnt-1;
end;

Желательно пояснить, что я написал не так.