[flips]

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

Код:

1 2 3 4 5 6 7 8 9

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;

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