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

    type
       fam=(Ivanov,Petrov,Sidorov);
       pred=(Algebra,Russkii,Informatika);
    var
        matr:array[fam,pred] of integer

Необходимо выяснить сколько студентов группы имеют средний балл, наименее всего отклоняющийся по абсолютному значению от среднего балла всей группы.
Помогите пожалуйста хотя бы с началом задачи, потому что понятия не имею с чего вообще начинать надо.
P.S. Я студент первокурсник, поэтому что такое процедуры и функции я не знаю . Заранее спасибо!

Вот тебе начало. Тут заполнение матрицы случайными числами и подсчет среднего балла. Дальше попробуй справиться сам.

type
  fam=(Ivanov,Petrov,Sidorov);
  pred=(Algebra,Russkii,Informatika);
var
  matr: array[fam,pred] of integer;
  s: word;
  f: fam;
  p: pred;

begin
  for f:=Low(fam) to High(fam) do
    for p:=Low(pred) to High(pred) do
      matr[f,p]:=Random(4)+2;
  s:=0;
  for f:=Low(fam) to High(fam) do
    for p:=Low(pred) to High(pred) do
      Inc(s,matr[f,p]);
  WriteLn('Avarage grade is ',s/Succ(Ord(High(fam)))/Succ(Ord(High(pred))): 5:3)
end.