процедуры вывода символов из стека

uses crt;
type
  tStek = ^rStek;
  rStek = record
    Ch : Char;
    Next : tStek;
  end;
var
  f:file of char;
  maxch,a,num:char;
  Stek : tStek;
procedure input;
  var kol,i:integer;
  begin
    writeln ('сколько символов нужно поместить в файл?');
    readln (kol);
    rewrite (f);
    for i:=1 to kol do
      begin
        write ('введите ',i,' символ: ');
        readln (a);
        write (f,a);
      end;
    close (f);
  end;
  
  procedure Push(Ch : Char);
var
  Cur : tStek;
begin
  New(Cur);
  Cur^.Ch := Ch;
  Cur^.Next := Stek;
  Stek := Cur;
end;
 
procedure Pop ;
var
  Cur : tStek;
begin
  if Stek = nil then
    writeln ('стек пуст')
  else
    begin
      writeln ( Stek^.Ch);
      Cur := Stek;
      Stek := Stek^.Next;
      Dispose(Cur);
    end;
end;
  
begin
  assign (f,'aabc');
  stek:=nil;
  while num <> #52 do
  begin
  Clrscr;
  writeln ('нажмите 1 чтобы заполнить файл ');
  writeln ('нажмите 2 чтобы занести числа из файла в стек');
  writeln ('нажмите 3 что бы вывести символы из стека');
  writeln ('нажмите 4 чтобы выйти из программы');
  num:=readkey;
  case num of
  #49: input;
  #50 : begin 
          clrscr;
          write ('введите максимум: ');
          readln (maxch);
          reset (f);
          while not eof (f) do
            begin
            read (f,a);
            if a > maxch then push (a);
            end;
            writeln ('символы занесены в стек, чтобы выйти в меню нажмите enter');
            readln ;
        end; 
  #51 : pop ;
  end;
  end;
end.