Написать программу вывода на экран информации о книгах

Uses crt;
Type
  Kniga = record;
    nazv,avt: string[20];
    god,kol: word;
    end;
 
Var
  f: text;
  FileName: string[20];
 
Procedure Vvod(var f: text);
  var 
    a: Kniga;
    key: char;
  begin
    Write('Введите имя файла: ');
    Readln(FileName);
    Assign(f,FileName);
    Rewrite(f);
    Repeat
      Writeln;
      With a do
        begin
          Writeln('Введите название книги: ');
          Readln(nazv);
          Writeln(f,nazv);
          Writeln('Введите автора: ');
          Readln(avt);
          Writeln(f,avt);
          Write('Введите  год издательства: ');
          Readln(god);
          Writeln(f,god);
          Writeln('Введите количество страниц: ');
          Readln(kol);
          Writeln(f,kol);
        end;
      Write('Продолжить? Y/N ');
      Readln(key)
    Until upcase(key)='N';
    Close(f)
  end;
 
Procedure ReadFile;
  var
    st: string;
    b: integer;
  begin
    Readln(f,a.nazv);
    Readln(f,a.avt);
    Readln(f,st);
    Val(st,a.god,b);
    Readln(f,st);
    Val(st,a.kol,b)
  end;
 
Procedure ZadA(var f: text);
  Const q = 2007;
  var
    a: Kniga;
  begin
    Writeln;
    Writeln('Сведения о книгах с 2007 годом издания');
    Writeln('|','название':22,'|','автор':22,'|','год издания':6,'|','страниц':6,'|');
    Assign(f,FileName);
    Reset(f);
    While not eof(f) do
      begin
        ReadFile;
        With a do
          If god = q then writeln('|',nazv:22,'|',avt:22,'|',god:6,'|',kol:6,'|')
      end;
    Close(f);
    Writeln
  end;
 
Procedure ZadB(var f: text);
  const q = 370;
  var
    a: Kniga;
  begin
    Writeln;
    Writeln('Сведения о книгах с количеством страниц большим чем 370');
    Writeln('|','название':22,'|','автор':22,'|','год издания':6,'|','страниц':6,'|');
    Assign(f,FileName);
    Reset(f);
    While not eof(f) do
      begin
        ReadFile;
        With a do
          If kol > q then writeln('|',nazv:22,'|',avt:22,'|',god:6,'|',kol:6,'|')
      end;
    Close(f);
    Writeln
  end;
 
Begin
  Vvod(f);
  ZadA(f);
  Write('press any key ');
  Readkey;
  Writeln;
  ZadB(f);
  Write('press any key ');
  Readkey
End.