Дан файл содержащий сведения о книгах. Нужно вывести названия книг заданного автора, изданных с 1960 года — Pascal(Паскаль)

Program a_511;
uses crt;
Type avtor=record  famavt:string; nazv:string;
god:integer; sr:real;
end;
mas=array[1..100] of avtor;
 
var i,n,j:integer; av1:string;
 massiv1:mas;    a:mas;
 
procedure input_from_file(name:string);
var st:string;  n:integer ;
     kod:integer;f:text;
begin
assign(f,name);
reset(f);
n:=0;
while not eof(f) do
 begin
  n:=n+1;  i:=i+1;
  readln(f,st);
  with a[n] do
   begin
     famavt:=copy(st,1,pos(' ',st)-1);
   delete(st,1,pos(' ',st));
   nazv:=copy(st,1,pos(' ',st)-1);
   delete(st,1,pos(' ',st));
   val(copy(st,1,pos(' ',st)-1),god,kod);
   delete(st,1,pos(' ',st));
   val(st,god,kod);
massiv1[i].famavt:=famavt;
massiv1[i].nazv:=nazv;
massiv1[i].god:=god;
 
 
   end;
  end;
close(f);
End;
 
Begin
 input_from_file('data.txt');
writeln('Введите фамилию автора, чтобы увидеть есть ли у него книги изданные после 1960 года.');
readln(av1);
for j:=1 to i do begin
if   (massiv1[j].famavt=av1)  and (massiv1[j].god>1960) then writeln(massiv1[j].nazv);
end;
End.