Помогите с задачей в паскале.

[aleksandr_dss]

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

[Serge_Bliznykov]

Это элементарно.
заведите одномерный массив с фамилиями студентов.
Двухмерный массив для оценок (размерность массива:
Кол-во записей в массиве студентов X количество предметов)
Заполните массивы исходными данными (константами, либо из файла, либо ввод оператором).
Потом банальный перебор:

  for i:=1 to KolVoStud do
    for j:=1 to KolPredmet do
      if Ocenka[i,j]<3 then begin
        WriteLn(FIO[i]);
        Break; {т.к. хоть одну неудовлетворительную оценку у данного студента нашли - то остальные оценки можно не проверять - поэтому выходим из цикла перебора оценок текущего студента}
      end;

всё, конец программы :-)