Посмотрите в чём ошибка процедуры PrintFile. Программа останавливается.

[Антон Лысенко]

В общем вся программа выглядит так:

program Lab_13;
uses
  SysUtils;

{$APPTYPE CONSOLE}

 type Tfile=file of char;
var f,n,g:tfile;
    c1:char; p2:boolean;
    fletter,gletter,nletter:char;
    procedure FillTextFile(var f:tfile);
  begin

  rewrite(f);
  P2:=true;
  repeat
   Writeln('input letter');
   readln(fletter);
   write(f,fletter);
   writeln('prodolzhit vvodit letters?(Y/N)');
   readln(c1);
     if (c1='N')xor(c1='n') then p2:=false;
       until not (p2);
       close(f);
  end;
   procedure PrintFile(var f:tfile);
   var ch:char;
   begin
 reset(f);
 while Not EOF(f) do begin
   read(f,ch);
   Write(ch);
 end;
 writeln;
 close(f);
end;
   begin
     Assign(f,'f.dat');
     FillTextFile(f);
     assign(n,'n.dat');
     rewrite(n);
     assign(g,'g.dat');
     rewrite(g);
     reset(f);
     while not (eof(f)) do begin
     read(f,fletter);
   if  (ord(fletter)>64) and (ord(fletter)<91) or
       (ord(fletter)>96) and (ord(fletter)<123)then
       write(n,nletter)
   else
     write(g,gletter);
  end; PrintFile(n); PrintFile(g);
  readln;readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Файл в консоле не печатается, ну как не печатается: пробелы вместо символов , я думаю что это связано с кодировкой. Ну а в обще думаю что программа работает: в папке создаются три файла(не пустые). спасибо за правильную помощь (вы не дали сразу мне решение, а указывали на ошибки и наталкивали на правильный путь)

[Serge_Bliznykov]

перед вызовом PrintFile обязательно закройте файлы:
...

      write(n,nletter)
   else
     write(g,gletter);
  end;
  Close(n);
  Close(g);

  PrintFile(n);
  PrintFile(g);