помогите решить задачу!, Нужно решить задачу с помощью процедуры и функции. Опции

[natik3]

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

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

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

[Krjuger]

Хах у тебя задание

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

Это и есть наименшее значение отклонения.Абсолютное значение означает,что средний балл студента может быть и меньше и больше на эту величину.Вообще, когда говорят абсолютное подразумевается модуль.Именно поэтому и модуль числа,а в паскале abs- функция реализующая модуль числа.Так что без нее никак, только если самому писать.Но зачем создавать свой велосипед,когда уже есть спортивный байк.
inc(b),эт всего лишь встроенная функция, означает она увеличить число b на единицу.По сути это равносильно написанию b:=b+1;

[natik3]

Хах у тебя задание

Это и есть наименшее значение отклонения.Абсолютное значение означает,что средний балл студента может быть и меньше и больше на эту величину.Вообще, когда говорят абсолютное подразумевается модуль.Именно поэтому и модуль числа,а в паскале abs- функция реализующая модуль числа.Так что без нее никак, только если самому писать.Но зачем создавать свой велосипед,когда уже есть спортивный байк.
inc(b),эт всего лишь встроенная функция, означает она увеличить число b на единицу.По сути это равносильно написанию b:=b+1;

[Error] str45n34c67g.dpr(26): Incompatible types: 'Integer' and 'pred'
он мне выдает эту ошибку.как её исправить.
P.S. я знаю я туплю...но что поделать,я только учусь(