решите задачу в Delphi

Доброго времени суток.

Возможное решение может быть таким.

program Student;
type
RStudent = record
FIO : String[40]; {40 символов должно хватить на фамилию}
Class : Integer; {класс без всяких там -а и -б}
Ball : Integer;
end;

var
A : array[1..30] of RStudent;
j : Integer;
begin
{заполняем массив}
for j:=1 to 30 do begin
Write('Введите через пробел ФИО, класс и оценку ', i, ' ученика');
ReadLn(A[j].FIO, A[j].Class, A[j].Ball);
end;

{обработка}
for j:=1 to 30 do
if (A[j].Class = 9) and (A[j].Ball = 5) then WriteLn(A[j].FIO);

ReadLn; {это чтобы увидеть ответ}
end.

Удачи!