Список записей: найти, на каком факультете обучается больше всего студентов

type
  TStudent = record
    name, surname, fathername: string;
    faculty: integer;
  end;
  
  Tf = record
    name: string;
    value: integer;
    Constructor Create(s: string);
    begin
      name:=s;
    end;
  end;
 
function NewStudent(name: string; faculty: integer): TStudent;
begin
  var st:=name.ToWords;
  Result.name:=st[1];
  Result.surname:=st[0];
  Result.fathername:=st[2];
  Result.faculty:=faculty;
end;
 
var
  students: List<TStudent> = new List<TStudent>;
 
begin
  //сюда запихните инициализацию массива.
  students.Add(NewStudent('Петров Николай Романович',0));
  students.Add(NewStudent('Петров Николай Романович',0));
  students.Add(NewStudent('Петров Николай Романович',1));
  students.Add(NewStudent('Петров Николай Романович',1));
  students.Add(NewStudent('Петров Николай Романович',1));
  students.Add(NewStudent('Петров Николай Романович',2));
  students.Add(NewStudent('Петров Николай Романович',2));
  //сюда запихните инициализацию массива.
  
  //факультеты
  var Count: array of tf;
  SetLength(Count,3);
  Count[0]:=Tf.Create('Физмат');
  Count[1]:=Tf.Create('Гум');
  Count[2]:=Tf.Create('Мед');
  //факультеты
  
  for var i:=0 to students.Count-1 do
  begin
    Inc(Count[students[i].faculty].value);
  end;
  var max, maxid: integer;
  max:=0;
  for var i:=0 to Count.Count-1 do
  begin
    if count[i].value > max then
    begin
      max:=count[i].value;
      maxid:=i;
    end;
  end;
  
  writeln('Больше всего студентов на ',Count[maxid].name,'е, ',Count[maxid].value);
end.

type
  anketa = record
    f: string[25];
    i: string[10];
    ot: string[20];
    fa: integer;
  end;
 
var
  student: array [1..100] of anketa;
  St, n, t, o: integer; 
  f, i, ot: string;
  fa: string;
 
begin
  write('введите кол-во студентов:');
  readln(n);
  for St := 1 to n do 
  begin
    writeln('введите фамилию - '); 
    readln(student[St].f);
    writeln('введите имя - '); 
    readln(student[St].i); 
    writeln('введите отчество - '); 
    readln(student[St].ot);  
    writeln('введите факультет: 1 - физико-математический, 2 - медицинский');  
    repeat
      readln(student[St].fa);
    until ((student[St].fa >= 1) and (student[St].fa <= 2));
  end;
  begin
    for St := 1 to n do
      if (student[St].fa <= 1) then o := o + 1
      else
      if (student[St].fa >= 2)  then t := t + 1;
  end;
  Writeln;
  if(t > o) then writeln('Больше всего студентов обучается на медицинском факультете')
  else
  if t = o then writeln('На физико-математическом и медицинском факультетах обучается равное количество студентов')
  else writeln('Больше всего студентов обучается на физико-математическом факультете'); 
end.