Работа с файлами

program task_06;
uses
  crt;
const
  space:char=' ';
  nf='task_06.in';
  ng='task_06.out';
var
  f,g:file of char;
  c,r:char;
  pt:integer; {0-space, 1-first symbol, 2 - next symbol}
  fw:boolean; {first word}
begin
  clrscr;
  pt:=0;
  fw:=true;
  writeln('Chitaem ', nf);
  assign(f, nf);
  reset(f);
  assign(g, ng);
  rewrite(g);
  while not eof(f) do begin
    read(f, c);
    if c=' ' then begin
      pt:=0;
    end else begin
      if pt=0 then begin
        pt:=1;
        r:=c;
      end else if pt = 1 then begin
        if fw then begin
          fw:=false;
        end else begin
          write(g,space);
        end;
        write(g,r);
        write(g,c);
        pt:=2;
      end else if pt = 2 then begin
        write(g,c);
      end else begin
        writeln('Oshibka!!!');
        exit;
      end;
    end;
  end;
  close(g);
  close(f);
  writeln('Rezultat v ', ng);
end.

writeln('Chitaem ', nf);
  assign(f, nf);
  reset(f);