Описать массив записей — телефонный справочник одноклассников

program pr;
 
type
  directory = record               // тип запись 
    surname: string[50];    // поле для фамилии (строка)
    name: string[50];      // поле для имени (строка)
    numphone: integer;  // поле для номера телефона
    hobbi: string;      // поле для хобби (строка)
  end;
  arr = array [1..100] of directory;       // тип массива записей directory
 
var
  a: arr;            // сам массив записей типа arr
  i, n, cout: integer;        
  s: string;
 
begin
  cout := 0;           // счётчик для количества по запросу 
  writeln('Введите количество записей');
  readln(n);
  for i := 1 to n do     // заполняем поля массива записей 
  begin
    writeln('Введите фамилию');
    readln(a[i].surname);
    writeln('Введите имя');
    readln(a[i].name);
    writeln('Введите номер телефона');
    readln(a[i].numphone);
    writeln('Введите хобби');
    readln(a[i].hobbi);
    writeln;
  end;
  writeln('Введите фамилию абонента');
  readln(s);                      
  for i := 1 to n do
    if a[i].surname = s then           // если поле "фамилия" i-той записи равна введённой с клавиатуры фамилии, то выводим телефон 
    begin
      writeln('Телефон: ', a[i].numphone);
    end;
  writeln;
  writeln('Список абонентов по критерию "увлечение компьютерными играми" ');
  for i := 1 to n do 
    if a[i].hobbi = 'компьютерные игры' then         // если поле увлечение совпадает, то выводим 
    begin
      cout := cout + 1;           // наращиваем счётчик количества 
      writeln(a[i].surname);
      writeln(a[i].name);
      writeln(a[i].numphone);
      writeln;
    end;
  writeln('Количество абонентов, увлекающихся компьютерными играми: ', cout);
end.