Дано файл f, состоящий из информация о книгах: фамилия автора, название, год выпуска. Вывести в файл f1 данные о книгах данного автора, которые изданы до 1960 г — Pascal(Паскаль)

uses crt;
const n=4;
type rec=record
      name,namek:string;
      year:integer;
     end;
var x:array[1..n] of rec;
    i:integer;
    f,f1:text;
    s:string;
begin
ClrScr;
for i:=1 to n do
 with x[i] do
  begin
   Write(' Name(Avtor): ');
   Readln(name);
   Write(' Name(kniga): ');
   Readln(namek);
   Write(' Year: ');
   Readln(year);
  end;
Assign(f,'f.txt');
Rewrite(f);
Writeln(f,'------------------------------------');
Writeln(f,'||  Name(Av)  |  Name(kn)  | Year ||');
Writeln(f,'------------------------------------');
for i:=1 to n do
 Writeln(f,'||',x[i].name:12,'|',x[i].namek:12,'|',x[i].year:6,'||');
Writeln(f,'------------------------------------');
close(f);
Assign(f1,'f1.txt');
Rewrite(f1);
Reset(f);
Read(f);
Writeln('------------------------------------');
Writeln('||  Name(Av)  |  Name(kn)  | Year ||');
Writeln('------------------------------------');
for i:=1 to n do
 Writeln('||',x[i].name:12,'|',x[i].namek:12,'|',x[i].year:6,'||');
Writeln('------------------------------------');
close(f);
Write('Vvedite name avtora: ');
Readln(s);
for i:=1 to n do
 if s=x[i].name then
  begin
   Writeln(f1,'Avtor: ',s);
   Writeln(f1,'-----------------------');
   Writeln(f1,'||  Name(kn)  | Year ||');
   Writeln(f1,'-----------------------');
   for i:=1 to n do
    if x[i].year<1960 then
     Writeln(f1,'||',x[i].namek:12,'|',x[i].year:6,'||');
   Writeln(f1,'-----------------------');
  end;
close(f1);
Readln;
end.