проблема со "средним арифметическим"

[MyQwErTy]

Задача: имеется массив А[5] с фамилиями учеников и матрица В[10,5] с их оценками от "2" до "5". Определить фамилии учеников, которые имеют наименьший средний балл по
всем предметам.

procedure Fav;
type mass=array[1..5] of string;
       matr=array[1..10,1..5] of integer;
       mass2=array[1..10] of integer;
var imin2,imin,k,i,j:integer;
min2,min,sr:real;
A:mass; B:matr; Sred:mass2;
begin
k:=0;
 for i:=1 to 10 do begin
  sr:=0;
  k:=k+1;
   for j:=1 to 5 do begin
   sr:=sr+D[i,j];
   end;
   sr:=sr/5;
   Sred[k]:=sr;   {находим ср. арифм. каждой строки и заносим в массив}
  end;
    min:=Sred[1];
    imin:=1;
  for i:=1 to 10 do begin
    if Sred[i]<min then begin
    min:=Sred[i];
    imin:=i;
   end; {находим минимальный элемент массива}
   writeln(A[imin]);
   end;

Проблема: я выполнил первое условие задачи(нашел среднее арифметическое каждой строки матрицы, но вот со вторым проблема в том, что я могу найти только одну фамилию ученика, а может быть, что несколько учеников имеет одинаковый средний балл по предметам. Помогите, пожалуйста, доделать задачу(т.е. написать, как найти все фамилии учеников с одинаковым средним баллом)

[Sazary]

MyQwErTy Пройдитесь по ученикам в цикле еще раз, сравнивая их среднее ариф. с min. Если равно - выводите этого ученика.

[MyQwErTy]

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

[Sazary]

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

Не совсем понял. Вам ведь нужно вывести всех учеников с наименьшим сред.ариф. Так?
Тогда вместо

writeln(A[imin]);

нужно записать

for i:=1 to 10 do
 if sred[i]=min then
  writeln(A[i]);

как-то так.

[MyQwErTy]

а всё понял, тока он теперь на строчке writeln(A[imin]); выдает ошибку
Illegal type in write/writeln statement

[Sazary]

MyQwErTy Исправьте imin на i ) Не заметил.. Ведь там i меняется..

[MyQwErTy]

все равно та же ошибка..(

[Sazary]

MyQwErTy
Хорошо бы взглянуть на полный код, а не только на процедуру.
Закину себе в паскаль.

Данная ошибка говорит о том, что вы пытаетесь вывести элемент, который writeln вывести не может.

[MyQwErTy]

unit Favourite_subject;

interface
uses crt,Global,SysUtils, massiv_matrix;
procedure Fav(var D:matr; var Sred:mas; var A:mass);
implementation

procedure Fav;
var imin,k,i,j:integer;
min,sr:real;
f:text;
begin
  assign(f,'res.txt');
  {$I-}
  rewrite(f);
  {$I+}
  if IOresult<>0 then begin
  writeln('Coudn not open file');
  exit;
  end;

k:=0;
 for i:=1 to 10 do begin
  sr:=0;
  k:=k+1;
   for j:=1 to 5 do begin
   sr:=sr+D[i,j];
   end;
   sr:=sr/5;
   Sred[k]:=sr;
  end;
    min:=Sred[1];
    imin:=1;
  for i:=1 to 10  do begin
    if Sred[i]<min then begin
    min:=Sred[i];
    imin:=i;
    end;
  end;
    for i:=1 to 10 do
 if Sred[i]=min then begin
  writeln(A[imin]:2);
  writeln(f,A[imin]:2);
 end;
 end;
end.

вот

[MyQwErTy]

пишет только одну фамилию, а одинаковых средних баллов несколько