Каталог книг. По заданному значению года издания занесите в отдельный файл сведения о книгах

program book;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,Windows;
  const n=4;
Type
  TKatalog=record            {çàïèñü äëÿ îïèñàíèÿ ïàðàìåòðîâ êíèãè}
   Author:String[40];          {àâòîð}
   Name:String[80];             {íàçâàíèå}
   Year:String[4];              {ãîä èçäàíèÿ}
   Specification:String[80];  {ñïåöèàëüíîñòü}
end;
var Books:array [1..n] of TKatalog; {ìàññèâ çàïèñåé}
    FKatalog: file of TKatalog;        {òèïèçèðîâàííûé ôàéë}
    F1,F2:Text;                      {Òåêñòîâûé ôàéë äëÿ âõîäíûõ äàííûõ è äëÿ âûâîäà ðåçóëüòàòà}
    i:integer;
/////////////////////////////////////////////////////////////////////////////////////////////////
Procedure WriteRec(i:integer); {Ïðîöåäóðà âûâîäèò â ôàéë F2 ñîäåðæèìîå îäíîé çàïèñè,
                                i - íîìåð çàïèñè}
begin
 with Books[i] do
  Writeln(F2, Author:40, Name:80, Year:4, Specification:80 )
end;
////////////////////////////////////////////////////////////////////////////////////////////////////
Procedure InpOut;
var k:integer;
Begin
 assign(F1, 'nik.dat');     {óêàçûâàåì âõîäíîé ôàéë}
 reset(F1);                 {îòêðûâàåì åãî äëÿ ÷òåíèÿ}
 assign(F2, 'nik.res');     {óêàçûâàåì âûõîäíîé ôàéë}
 reset(F2);                 {îòêðûâàåì åãî äëÿ çàïèñè}
 for K:=1 to n do with Books[k] do       {öèêë ââîäà-âûâîäà}
  begin
   Readln(F1, Author, Name, Year, Specification);
   WriteRec(k);
  end;
  Close(F1);
  Close(F2);
  end;
////////////////////////////////////////////////////////////////////////////////////////////////////
Procedure WriteArr(FileName:String);
var k:integer;
begin
Assign(F1, FileName);
Rewrite(F1);
 for k:=1 to n do
  WriteRec(k);
 Close(F1);
end;
/////////////////////////////////////////////////////////////////////////////////////////////////////
Procedure ChoiceYear;
var
  k,i:integer;
  Book:TKatalog;
Begin
 
 for i:=1 to n do
  if Books[k].Year=n then WriteArr('zzz.res')
end;
///////////////////////////////////////////////////////////////////////////////////////////////////////
begin
 
  InpOut;
  WriteFile();
  ChoiceYear;
  WriteArr('zzz.res');
end.