Сведения о студентах колледжа представлены в виде таблицы. ФИО Дата рождения Год поступления Курс Место проживания Семен

uses
  System;
 
type
  rec = record
    fio: string[90];
    birtday: string[20];
    year: word;
    course: byte;
    locations: string[100];
  end;
 
var
  arr: array of rec;
 
begin
  write('Введите количество записей: ');
  var a := ReadlnInteger;
  SetLength(arr, a);
  for var i := 0 to arr.Length - 1 do
  begin
    writeln('СТУДЕНТ ' + (i + 1).ToString() + '-----------------------------');
    write('Введите ФИО: '); readln(arr[i].fio);
    write('Введите дату рождения: '); readln(arr[i].birtday);
    write('Введите год поступления: '); readln(arr[i].year);
    write('Введите курс: '); readln(arr[i].course);
    write('Введите место проживания: '); readln(arr[i].locations);
  end;
  writeln;
  writeln('Результат поиска:');
  writeln();
  writeln('_______________________________________________________________________');
  writeln('| Ф.И.О  | Дата рождения | Год поступления | Курс | Место проживания | ');
  writeln('------------------------------------------------------------------------');
  for var i := 0 to arr.Length - 1 do
    if (arr[i].course = 2) and (arr[i].locations = 'Чебоксары') then
      write(arr[i].fio, ' ', arr[i].birtday, ' ', arr[i].year, ' ', 
      arr[i].course, ' ', arr[i].locations,' ', (' '));
      writeln('---------------------------------------------------------------------');
end.