[lxa85]

Написать простенькую программу самому.

Код:

program space;
var
  str:string;
  i:integer;
begin
  read(str);
  for i:=1 to length(str) do begin
    if str(i) <> " " then write str(i);
  end;
end.

Далее через перенапрвление выводов. См "Использование фильтров" в справке. Там все хорошо написанно, лучше я не смогу.
+ там команды нужные описанны more например