(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.