ok:=1;
for i:=1 to n do begin
if (spis[i].god_izd<=(1960)) and (spis[i].god_izd>=(1970)) then  begin
 with spis[i] do begin
     spis2[ok].fio:=fio;
     spis2[ok].shifr:=shifr;
     spis2[ok].nazv:=nazv;
     spis2[ok].god_izd:=god_izd;
     ok:=ok+1;
 end;
end;
end;
n:=ok-1;
writeln('ФИО ШИФР НАЗВАНИЕ ГОД ИЗДАНИЯ');
for i:=1 to n do
 with spis2[i] do
   writeln(FIO,'  ',shifr,'  ',nazv,'   ',god_izd);