Выяснить, имеются ли в школе однофамильцы - Turbo Pascal

Формулировка задачи:

13. Сведения об ученике состоят из его имени и фамилии и названия класса (года обучения и буквы), в котором он учится. Дан файл f, содержащий сведения об учениках школы: a) выяснить, имеются ли в школе однофамильцы; b) выяснить, имеются ли однофамильцы в каких-либо параллельных классах; c) выяснить, имеются ли однофамильцы в каком-нибудь классе; d) ответить на вопросы а) - в), но в отношении учеников, у которых совпадают и имя, и фамилия; e) выяснить, в каких классах насчитывается более 35 учащихся; f) выяснить, насколько человек в восьмых классах больше, чем в десятых; g) собрать в файле g сведения об учениках 9-х и 10-х классов, поместив вначале сведения об учениках класса 9а, затем 9б и т.д., затем 10а, 10б и т.д. Помогите пожалуйста, буду благодарен, и комментарии напишите.

Решение задачи: «Выяснить, имеются ли в школе однофамильцы»

Листинг программы

program CyberForum;
uses Crt;
type school = record
name:string[20];
sirname:string[20];
god:integer;
bukva:char;
end;
const n = 3;
var a:array [1..n] of school;
i,j,count:integer;
begin
count:=0;
for i:=1 to n do
with a[i] do begin
writeln('Students ');
writeln ('enter name ');
readln(name);
writeln('surname ');
readln(sirname);
writeln('god ');
readln(god);
writeln ('bukva ');
readln(bukva);
end;
clrscr;
for i:=1 to n do
with a[i] do
begin
writeln(name, ' ', sirname, ' ', god,bukva);
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
if (a[i].sirname = a[j].sirname) and (i <> j) then
count:=count+1;
end;
end;
writeln ('Однофамильцев в школе: ', n);
readkey;
end.

Объяснение кода листинга программы

Создается тип данных school, который представляет собой запись с полями для имени, фамилии, возраста и буквы.
Создается константа n равная 3.
Создается переменная a, которая является массивом из n элементов типа school.
Создаются три переменные i, j и count, которые будут использоваться для цикла и подсчета однофамильцев.
Запускается цикл, в котором для каждого студента в массиве a выводится запрос на ввод имени, фамилии, возраста и буквы.
После завершения цикла выводится сообщение с количеством однофамильцев.
Вызывается функция readkey, чтобы дождаться нажатия клавиши перед завершением программы.