Задача на массив.

[aleksandr_dss]

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

[Serge_Bliznykov]

const
  MaxStud = 10; {запись о десяти студентах в массиве}
  MaxPredmet = 3; {количество уч.дисциплин}
var
  MasStud : array[1..MaxStud] of string[40];
  MatrOcenka : array[1..MaxStud, 1.. MaxPredmet] of byte;
  i, j : integer;
begin
  {ТУТ ЗАПОЛНЯЕТЕ МАССИВЫ СТУДЕНТОВ И ОЦЕНОК}
  .....  
  {собственно проверка и вывод неуспевающих...}
  for i:=1 to MaxStud do
    for j:=1 to MaxPredmet do
      if  MatrOcenka[i,j]<3 then begin
         WriteLn(MasStud[i]);
          Break
      end; 
end;