PЗаписи работа с ними Опции

[nEGOR]

В этой программе вводятся различные данные о студенте.В частности имя
(FirstName),Фамлия(SecondName),отчество(ThirdName),возраст(Age) и т.д.
Записей о студентах будет несколько.Их количество хранится в константе n.
Как её(программу) доделать так, чтоб выводились частовстречаемые имена?
Заранее очень благодарен.

Код

program zad_144;
uses crt;
const n=10;
type Student=record
     FirstName:string;
     SecondName:string;
     ThirdName:string;
     Age,Kurs:byte;
     Pol:string;
     end;
var vuz:array[1..n] of Student;
    MostMale,MostFemale:string;
    i:byte;
begin
ClrScr;
for i:=1 to n do begin
    Writeln('==Na4alo vvoda ',i,'-oy zapisi==');
    Write('Vvedite imya-');readln(vuz[i].FirstName);
    Write('Vvedite familiju-');readln(vuz[i].SecondName);
    Write('Vvedite ot4estvo-');readln(vuz[i].ThirdName);
    Write('Vvedite vozrast-');readln(vuz[i].Age);
    Write('Vvedite kurs-');readln(vuz[i].Kurs);
    Write('Vvedite pol-');readln(vuz[i].Pol);
    Writeln('==Konets vvoda ',i,'-oy zapisi==');
    end;
end.

[Гость]

Всем большое спасибо за помощь.Часто встречаемое-одно женское, одно мужское