«Тестирование коллектива». Пусть целочисленная матрица
размером я х т содержит информацию об учениках некоторого
класса из п человек. В первом столбце проставлена масса (кг), во
втором — рост (см), в третьем — успеваемость (средний балл) и
т.д. (используйте свои дополнительные показатели). Ученик назы­
вается среднестатистическим по k-му параметру (уникальным по
k-му параметру), если на нем достигается минимум (максимум)
модуля разности среднего арифметического чисел из к-то столбца
и значения к-го параметра этого ученика. Ученик называется са­
мым уникальным (самым средним), если он уникален (является сред­
нестатистическим) по самому большому количеству параметров.
По данной матрице определить самых уникальных учеников и са­
мых средних.

for i:=1 to do
    begin
  writeln ( ввести рост, вес, средний бал,IQ)
for i:=1 to 4 do
  readln (a[i:j]);
sred: array [1..4 ] of real;
for j:=1 to do begin
for i:=1 to do sum:=sum+a[i,j];
sred[j]:=sum/3
end;

правда я сомневаюсь что это хоть чуть чуть верно((((