Найти фамилии студентов, имеющих задолженность хотя бы по одному предмету

{ В массиве содержится информация о зимней сессии. Сведения о каждом студенте
содержат следующие данные: Фамилию(до 12 символов),номер группы (от 1 до 7),
оценки по трем предметам(математика,физика и программирование).
Напишите программу, которая вводит эту информацию и печатает следующие данные:
а)фамилии студентов, имеющих задолженность хотя бы по одному предмету;
б)процент студентов, сдавших все экзамены на 4 и 5;
в)название предмета, который был сдан лучше всего;
г)номера групп в порядке убывания средней успеваемости их студентов.}
 
type
  tstud = record
    name: string[12];
    group: 1..7;
    math: word;
    fiz: word;
    prog: word;
  end;
  
var
  stud: array[1..100] of tstud;
  sr: array[1..2,1..7] of real;
  sred,buf: real;
  n,i,k,j: integer;
  
begin
  write('Введите количество студентов : ');
  readln(n);
  writeln('Заполнение массива по зимней сессии');
  for i:=1 to n do
    begin
      write('Введите фамилию : ');
      readln(stud[i].name);
      repeat
        write('Введите номер группы (1-7) : ');
        readln(stud[i].group);
      until (stud[i].group >=1) and (stud[i].group <= 7);
      repeat
        write('Введите оценку по математике : ');
        readln(stud[i].math);
      until (stud[i].math >=2) and (stud[i].math <= 5);
      repeat
        write('Введите оценку по физике : ');
        readln(stud[i].fiz);
      until (stud[i].fiz >=2) and (stud[i].fiz <= 5);
      repeat
        write('Введите оценку по программированию : ');
        readln(stud[i].prog);
      until (stud[i].prog >=2) and (stud[i].prog <= 5);
    end;
  writeln;
  writeln('Фамилии студентов имеющих задолженность хотя бы по одному предмету : ');
  for i:=1 to n do
    if (stud[i].math < 3) or (stud[i].fiz < 3) or (stud[i].prog < 3) then
      writeln('   - ',stud[i].name);
  write('Процент студентов, сдавших все экзамены на 4 и 5 : ');
  k:=0;
  for i:=1 to n do
    if (stud[i].math >= 4) and (stud[i].fiz >= 4) and (stud[i].prog >= 4) then k:=k+1;
  if k <> 0 then writeln(((k*100)/n):0:2,' %')
  else writeln('   - таких студентов в списке нет!');
 
  writeln('Название предмета, который был сдан лучше всего : ');
  for i:=1 to n do
    begin
      if (stud[i].math >= stud[i].fiz) and (stud[i].math >= stud[i].prog) then writeln('   - ',stud[i].name,' : Математика (',stud[i].math,')')
      else if (stud[i].fiz >= stud[i].math) and (stud[i].fiz >= stud[i].prog) then writeln('   - ',stud[i].name,' : Физика (',stud[i].fiz,')')
      else if (stud[i].prog >= stud[i].math) and (stud[i].prog >= stud[i].fiz) then writeln('   - ',stud[i].name,' : Программирование (',stud[i].prog,')')
    end;
 
  for i:=1 to 7 do
    begin
      sred:=0;
      k:=0;
      for j:=1 to n do
        begin
          if stud[j].group = i then
            begin
              sred:=sred+(stud[i].prog+stud[i].fiz+stud[i].math)/3;
              k:=k+1;
            end;
        end;
      sr[1,i]:=i;
      if k <> 0 then sr[2,i]:=(sred/k) else sr[2,i]:=0;
    end;
  for i := 1 to 7-1 do
    for j := 1 to 7-i do
      if sr[2,j] < sr[2,j+1] then
        begin
          buf:= sr[2,j];
          sr[2,j] := sr[2,j+1];
          sr[2,j+1] := buf;
          buf:= sr[1,j];
          sr[1,j] := sr[1,j+1];
          sr[1,j+1] := buf;
        end;
  write('Номера групп в порядке убывания средней успеваемости их студентов : ');
  for i := 1 to 7 do if sr[2,i] <> 0 then write(sr[1,i],' ');
  readln;
end.