Программа, которая выводит список студентов 2 курса, которые проживают в городе Чебоксары, и подсчитывает их количество

uses crt;
type
rec = record
fio: string[90];
birtday: string[20];
year: integer;
course: integer;
locations: string[100];
end;
 
var
cr,i,z,n:integer;
arr: array[1..100] of rec;
 
begin
write('Введите количество записей: ');
readln(n) ;
 
for i := 1 to n do
 
begin
 
writeln('Введите ФИО: ');
readln(arr[i].fio);
 
writeln('Введите дату рождения: ');
    readln(arr[i].birtday);
 
  writeln('Введите год поступления: ');
    readln(arr[i].year);
 
   writeln('Введите курс: ');
    readln(arr[i].course);
 
   writeln('Введите место проживания: ');
      readln(arr[i].locations);
 
end;
clrscr;
 
writeln('Список:');
writeln();
writeln('_______________________________________________________________________');
writeln('| ФИО                 | Дата рождения | Год поступления | Курс | Город |');
writeln('-----------------------------------------------------------------------');
for i := 1 to n do with arr[i] do begin
 
gotoXY(1,whereY); write('|',arr[i].fio);
gotoXY(23,whereY); write('|',arr[i].birtday);
gotoXY(39,whereY); write('|',arr[i].year);
gotoXY(57,whereY); write('|',arr[i].course);
gotoXY(64,whereY); write('|',arr[i].locations);
gotoXY(75,whereY); writeln('|');
writeln('------------------------------------------------------------------------------');
end;
writeln();
writeln('Результат поиска');
writeln('_______________________________________________________________________________');
writeln('| ФИО                 | Дата рождения | Год поступления | Курс | Город |');
writeln('-------------------------------------------------------------------------------');
for i := 1 to n do
with arr[i] do
if (arr[i].course = 2) and (arr[i].locations = 'Чебоксары') then begin
gotoXY(1,whereY); write('|',arr[i].fio);
gotoXY(23,whereY); write('|',arr[i].birtday);
gotoXY(39,whereY); write('|',arr[i].year);
gotoXY(57,whereY); write('|',arr[i].course);
gotoXY(64,whereY); write('|',arr[i].locations);
gotoXY(75,whereY); writeln('|');
writeln('-------------------------------------------------------------------------------');
end;
end.