Составить программу которая печатает номер курса, на котором наибольший процент работающих студентов, вывести не занятых

program lab8;
uses crt;
type
  rec = record
    f: string[90];
    course: byte;
    obyaz: string;
    job: string[100];
  end;
 
var
  arr: array of rec;
  f: text;
 
begin
  write('Введите количество студентов: ');
  var a := ReadlnInteger;
  SetLength(arr, a);
  for var i := 0 to arr.Length - 1 do
  begin
    writeln('СТУДЕНТ ' + (i + 1).ToString() + '-----------------------------');
    write('Введите Фамилию: ');
    readln(arr[i].f);
    write('Введите курс: ');
    readln(arr[i].course);
    write('Обязанность в студкоме: ');
    readln(arr[i].obyaz);
    write('Где работает:');
    readln(arr[i].job);
  end;
  begin
  writeln;
  for var i := 0 to arr.Length - 1 do
  if (arr[i].course = 1) and (arr[i].job = 'Работает') > (arr[i].course = 2) and (arr[i].job = 'Работает') then
  writeln('') else if
  (arr[i].course = 2) and (arr[i].job = 'Работает') > (arr[i].course = 1) and (arr[i].job = 'Работает') then
  writeln('')
  writeln('Большой процент работающих,курс: ',arr[i].course)
  end;
end.

var a := ReadlnInteger;
  SetLength(arr, a);

SetLength(arr, ReadLnInteger);

  writeln;
  for var i := 0 to arr.Length - 1 do
    if (arr[i].course = 1) and (arr[i].job = 'Работает') > (arr[i].course = 2) and (arr[i].job = 'Работает') then
      writeln('')
    else
      if (arr[i].course = 2) and (arr[i].job = 'Работает') > (arr[i].course = 1) and (arr[i].job = 'Работает') then
        writeln('');
    //writeln('Большой процент работающих,курс: ', arr[i].course);
end.

type
  rec = record
    f: string[90];
    course: byte;
    obyaz: string;
    job: string[100];
  end;
 
var
  arr: array of rec;
 
begin
//  write('Введите количество студентов: ');
//  SetLength(arr, ReadlnInteger);
//  for var i := 0 to arr.Length - 1 do
//    begin
//      writeln(' '*10 + 'СТУДЕНТ ' + (i + 1) + NewLine + '-'*40);
//      arr[i].f      := ReadLnString ('       Введите Фамилию:');
//      arr[i].course := ReadlnInteger('          Введите курс:');
//      arr[i].obyaz  := ReadLnString ('Обязанность в студкоме:');
//      arr[i].job    := ReadLnString ('          Где работает:');
//    end;
  
  SetLength(arr, 5);
  arr[0].f := 'Иванов' ; arr[0].course := 1; arr[0].obyaz := ''; arr[0].job := 'стройка';
  arr[1].f := 'Петров' ; arr[1].course := 2; arr[1].obyaz := ''; arr[1].job := 'дворник';
  arr[2].f := 'Сидоров'; arr[2].course := 3; arr[2].obyaz := ''; arr[2].job := 'проходная';
  arr[3].f := 'Путин'  ; arr[3].course := 2; arr[3].obyaz := ''; arr[3].job := 'президент';
  arr[4].f := 'Макрон' ; arr[4].course := 2; arr[4].obyaz := ''; arr[4].job := '-';
 
  WriteLn('-'*40);
  arr.GroupBy(v->v.course).Println;
  arr.GroupBy(v->v.course).Select(c->c.Count(v->v.job.Length>0)).Println;
  arr.GroupBy(v->v.course).Select(c->(c.ToArray.First.course,c.Count(v->v.job.Length>0))).Println;
  WriteLn(arr.GroupBy(v->v.course).Select(c->(c.ToArray.First.course,c.Count(v->v.job.Length>0))).OrderBy(v->v[1]).Last[0], ' курс');
end.