Составление программы с использованием записей - Pascal ABC

[Korban]

Пусть данный массив, содержащий сведения о книгах. Сведения о каждой книге - это фамилия автора, название и год издания:
- найдите названия книг данного автора, изданных до 1977 года;
- определите, есть ли книга с названием "Информатика"; если да, то сообщите год издания книги, если таких книг несколько, найти их количество.

[Алексей_2012]

Немного усложнил конечно, не без этого будет выглядеть не очень))

Спасибо = весы

program books;
uses crt;
type 
TRec=record
fam:string[15];
names_books:string[30];
god_izd:integer;
end;

var 
i:integer=0;
count:integer;
mass:array of TRec;

function xUpCase(strok:string):string;
var i:integer;
begin
result:='';
 for i:=1 to length(strok) do result:=result+upcase(strok[i]); 
end;

//добавление записей
procedure add_record;
begin
writeln('Zapis No',i+1);
write ('input familia: ...');
readln(mass[i].fam);
write ('input god_izdan: ...');
readln(mass[i].god_izd);
write ('input names_books: ...');
readln(mass[i].names_books);
writeln;
end;

procedure print_record; 
begin
writeln('Zapis No',i+1);
writeln ('familia: ',mass[i].fam);
writeln ('god_izdan: ',mass[i].god_izd);
writeln ('Names_books: ',mass[i].names_books);
writeln;
end;



//основная часть
var obrazec:STRING;
    keys:byte;
    count_record:word;
    menu:boolean;
begin 
 menu:=false;
while not menu do
begin
clrscr;
writeln('1 - Add record to array');
writeln('2 - Search to obrazec (informatika)');
writeln('3 - print books 1977');
writeln('4 - print records ');
writeln('0 - Exit');
readln(keys);

clrscr; //чистка экрана

 case keys of
 1: begin  
      writeln('Print count records...');
      readln(count_record); 
      SetLength(mass,count_record);      
      for i:=0 to count_record-1 do
       add_record;
       writeln('Massiv zapolnen! Vsego: ',count_record,' zapisei');          
    end;
 2: begin
     writeln('1 - поиск по слову "информатика"');
     writeln('2 - поиск по любому наименованию книги');
     readln(keys);
     
     if keys=1 then  
         obrazec:='информатика'         
         else
         begin
         write('Введите образец поиска...');
         readln(obrazec);
         end;
         
       count:=0;
       obrazec:=xupcase(obrazec);
          for i:=0 to length(mass)-1 do 
            if pos(obrazec,xupcase(mass[i].names_books))=1 then //приведем к общему регистру для сравнения
            begin
             inc(count);
             writeln('Запись номер ',count);
             writeln('Наименование книги: ',mass[i].names_books,'| Год издания ',mass[i].god_izd,'|');    
            end;  
 if count>1 then writeln('Всего найдено записей: ',count); 
 if count=0 then writeln('Записей не найдено!');

     
    end;
 3: begin
       write('Print Avtors...');
       readln(obrazec);
        count:=0;
       obrazec:=xupcase(obrazec);
          for i:=0 to length(mass)-1 do 
            if (pos(obrazec,xupcase(mass[i].fam))=1) and(mass[i].god_izd<=1977) then //приведем к общему регистру для сравнения
            begin
             inc(count);
             writeln('Запись номер ',count);
             writeln('Наименование книги: ',mass[i].names_books,'| Год издания ',mass[i].god_izd,'| Фамилия ',mass[i].fam,' |');    
            end;  
 if count>1 then writeln('Всего найдено записей: ',count); 
 if count=0 then writeln('Записей не найдено!');
    end;
 4: begin
      for i:=0 to count_record-1 do
      print_record;     
    end; 
  0: 
 begin 
 menu:=true; 
 mass:=nil;end;
 end;
 writeln('Press ENTER'); 
 readln;
end;
writeln('GoodBye!');
end.

[Korban]

Спасибо