Опишите, используя структуру данных запись, записную книжку

uses crt,graphabc;
type
   friend=record
     familiya:string[30];
     iniciali:string[4];
     data:1..31;
     god:1900..2000;
     mecyac:1..12;
end;
var i,m,n:integer;
mass:array[1..100] of friend;
 
procedure poisk;
begin
     for i:=1 to m do
       if mass[i].god=1994 then
       with
          mass[i] do
          writeln (' ',familiya:3,' ',iniciali:3);
end;
 
begin
SetWindowCaption('Записная книжка');
    Write ('Введите количество друзей ==>');
    read (m);
      for i:=1 to m do
      begin
      writeln;
        write ('Введите фамилию',' ',i,' ', 'друга ==> ');
         with mass[i] do
           begin
             read (familiya);
             write ('введите инициалы ==>');
             read (iniciali);
             write ('введите дату рождения ==>');
             read (data);
             if (mass[i].data<1) or (mass[i].data>30) then
          begin
               Writeln ('Дата введена не верно. Введите еще раз');
               readln(mass[i].data);
          end;
             write ('введите месяц рождения ==>');
             read (mecyac);
             if (mass[i].mecyac=4) and (mass[i].data>29) or (mass[i].mecyac<1) or (mass[i].mecyac>12) then
          begin
               Writeln ('Ошибка при вводе даты либо месяца!!!');
               readln(mass[i].mecyac);
          end;
             write ('введите год рождения ==>');
             read (god);
             if (mass[i].god<1970) or (mass[i].god>1994) then
          begin
               Writeln ('День введен не верно. Введите еще раз');
               readln(mass[i].god);
          end;
           end;
      end;
    writeln ('____________________________________');
    writeln ('В этом году 19 лет исполняется:');
    writeln;
    poisk;
    readkey;
end.