Помогите пожалуйста с задачей по паскалю!

[...Оленька...]

Сведениями о книге являются: фамилия автора, название книги и год издания. Найти названия книг данного автора, изданных с 1960 года. Определить, имеется ли книга с названием “Информатика”. Если да, то сообщить фамилию автора и год издания. Если таких книг несколько, то сообщить имеющиеся сведения обо всех этих книгах.

[Sazary]

uses crt;
type
kniga = record
fam : string;
name : string;
year : integer;
end;

const N = 3;
st = 'Informatika';
var
books : array[1..n] of kniga;
i : integer;
str : string;
begin
clrscr;
{-- Vvod dannyh }
for i:=1 to n do
  begin
  writeln('Kniga ',i);
  write('Avtor: ');
  readln(books[i].fam);
  write('Nazvanie: ');
  readln(books[i].name);
  write('god izdaniya: ');
  readln(books[i].year);
  end;
writeln;
{-----------}
{ -- poisk informatiki  }
for i:=1 to n do
  if books[i].name = st then
    begin
    writeln(books[i].name);
    writeln('Avtor: ',books[i].fam);
    writeln('god izdaniya: ',books[i].year);
    writeln;
    end;
{-------}
write('Vvedite avtora: ');
readln(str);
for i:=1 to n do
  if (books[i].fam = str) and (books[i].year>=1960) then
    begin
    writeln(books[i].name);
    writeln('Avtor: ',books[i].fam);
    writeln('god izdaniya: ',books[i].year);
    writeln;
    end;

readln;
end.

...Оленька... Пишите адекватные названия тем. Иначе их просто закроют.

[NOOB]

Сообщение от ...Оленька...

Найти названия книг данного автора, изданных с 1960 года.

А искать где?