Файлы Опции

[Richard]

Помогите пожалуйста решить вот такое задание:
В текстовом файле удалить все пробелы.
Дальше описания переменных зайти не могу.

[Richard]

То есть полностью программа должна выглядеть примерно так

Program files;
var
ch:char;
f,f1:text;
begin
assign(f, 'file.txt'); 
reset(f);
assign(f1,'file1.txt');
rewrite(f1);
while not eof(f) do
  begin
      read(f,ch);
      if ch <> ' ' then
         write(f1,ch);
  end;
close(f);
close(f1);
end.

И вопрос как проверить что программа работает