Составить список учебной группы.

[maxim1592]

Составить список учебной группы. Для каждого студента указать фамилию, дату рождения, год поступления в институт, оценки, полученные во время последней сессии. Составить программу, которая обеспечивает ввод полученной информации в виде таблицы, а также распечатку данных
Указание: для решения данной задачи необходимо записи объединить в массив.
Распечатать анкетные данные студентов, имеющих оценки 10. Определить количество таких студентов.
вот что-то есть, не знаю подойдет или нет...

Uses Crt;
  Type
    ocenki = record
     algebra:integer;
     fizika:integer;
     istoriya:integer;
    end;

    student = record
     fam,grup:string[20];
     God_pos, kurs:integer;
     ocen:array[1..5] of ocenki;
     data:real;
    End;

Const n=5;   {количество студентов}
Var i,j: byte; st: array [1..n] of  student;
 Proverka: boolean;
Begin
ClrScr;
For i:=1 to n do
Begin
   Write('Введите фамилию студента :'); Readln(st[i].fam);
   Write('Введите дату рождения студента :'); Readln(st[i].data);
   Write('Введите год поступления :'); Readln(st[i].God_pos);
   Write('Введите курс студента :'); Readln(st[i].kurs);
   Write('Введите группу студента :'); Readln(st[i].grup);
   Write('Введите оценки каждого года обучения :');
    For j:=1 to st[i].kurs do
     begin
       Write('Оценка за алгебру ',i,' kursа');
       Readln(st[i].ocen[j].algebra);
       Write('Оценка за физику  ',i,' kursа');
       Readln(st[i].ocen[j].fizika);
       Write('Оценка за историю  ',i,' kursа');
       Readln(st[i].ocen[j].istoriya);
     end;

End;

For i:=1 to n do
 begin

     proverka:=true;
 For j:=1 to st[i].kurs do if (st[i].ocen[j].algebra<4) or (st[i].ocen[j].fizika<4) or (st[i].ocen[j].fizika<4) then
   Proverka:=false;
  IF Proverka then
   Writeln(St[i].Fam,' молодец!!!');
  Proverka:=true;
 end;

Readkey;
End.

[Mad_Cat]

оценки 10

algebra<4

ну и какая между ними связь

[maxim1592]

так эту программу нужно перебить под задание, или сделать новую...