задача: В отделе кадров студентов хранится следующая информация о каждом студенте: фамилия, имя, отчество, пол, возраст, курс. Составить программу, которая печатает номер курса, на котором самые распространенные мужские и женские имена, отчество и возраст которых являются одновременно самыми распространенными.
Вот код, который получился у меня. работает не так, как хотелось бы. Прошу помощи) заранее спасибо)
Type anketa=record
vosr:17..21;
curs:1..3;
FIO:record
name:string[10];
otch_vo:string[20];
end;
end;
var student:array [1..5] of anketa;
i,kol,j, kol1,kol2, k_max,k_max1, k_max2,max2, course,course1,course2:integer;
max, max1:string;
begin
for i:=1 to 5 do
with student[i] do
begin
writeln ('введите данные ', i, ' студента');
writeln ('введите имя');
readln (FIO.name);
writeln ('введите отчество');
readln (FIO.otch_vo);
writeln ('введите возраст');
readln (vosr);
writeln ('введите курс');
readln (curs);
end;
k_max:=0;
k_max1:=0;
k_max2:=0;
for i:=1 to 5 do begin
kol:=0;
for j:=1+1 to 5 do
if student[i].FIO.name=student[j].FIO.name then kol:=kol+1; end;
for i:=1 to 5 do begin
kol1:=0;
for j:=1 to 5 do
if student[i].FIO.otch_vo=student[j].FIO.otch_vo then kol1:=kol1+1; end;
for i:=1 to 5 do begin
kol2:=0;
for j:=1 to 5 do
if student[i].vosr=student[j].vosr then kol2:=kol2+1; end;
if kol>k_max then
begin
k_max:=kol;
max:=student[i].FIO.name;
course:=student[i].curs;
end;
if kol1>k_max1 then
begin
k_max1:=kol1;
max1:=student[i].FIO.otch_vo;
course1:=student[i].curs;
end;
if kol2>k_max2 then
begin
k_max2:=kol2;
max2:=student[i].vosr;
course2:=student[i].curs;
end;
writeln ('распространненое имя ', max,' ', 'на курсе', ' ', course);
writeln ('распространненое отчество ', max1, ' ', 'на курсе', ' ', course1);
writeln ('распространненый возраст ', max2, ' ' ,'на курсе', ' ', course2);
end.