Создать список студентов группы. Провести над ним операции.

[зеленый1]

Создать список студентов группы.
Описать и вывести массив,содержащий 10 записей следующей структуры: фамилия, возраст, № студ.билета, средняя оценка за последнюю сессию.
1. вывести массив в табличном виде.
2. вывести список студентов, средний бал которых ниже 4.
помогите решить остальный 2 условия:3. вывести списки, упорядоченные по возрасту.
4. найти студента, билет которого зарегистрирован раньше других.

PHP код:

Procedure z4;
type
sports=record
fa:string;
vz:integer;
gr,oc: longint;
end;
             const zapisi:array[1..10] of sports=
             ((fa:'Ivanov'; vz:18; gr:54603; oc:5),
             (fa:'Rusakov'; vz:20; gr:53201; oc:3),
             (fa:'Kotov'; vz:18; gr:53032; oc:3),
             (fa:'Ivanov'; vz:19; gr:54403; oc:1),
             (fa:'Chernov'; vz:21; gr:53405; oc:5),
             (fa:'Sidorov'; vz:21;gr:53426; oc:2),
             (fa:'Kozlov'; vz:19; gr:54890; oc:4),
             (fa:'Vasnecov'; vz:22; gr:54408; oc:3),
             (fa:'Shyits'; vz:18; gr:55305; oc:4),
             (fa:'Aksakov' vz:17; gr:53076; oc:5));
 var
 Sr,vzmin:real;
 i,j,o:byte;
 
 begin
  writeln('список студентов');
  writeln('|фамилия|возраст|№ студенческого билета|средний бал|');
  for i:=1 to 10 do
  with zapisi[i]do
  writeln('|',fa:15,'|',vz:5,'|',gr:8,'|',oc:3,'|');
  writeln;
 
  writeln;
  writeln('Средний бал <4');
  writeln('|фамилия|возраст|№ студенческого билета|средний бал|');
  for i:=1 to 10 do
  with zapisi[i]do
  if (zapisi[i].oc<4) then begin
  writeln('|',fa:15,'|',vz:5,'|',gr:8,'|',oc:3,'|');
 end; 


[GetMax]

вывести списки, упорядоченные по возрасту.

var zapisi:array[1..10] of sports=
             ((fa:'Ivanov'; vz:18; gr:54603; oc:5),
             (fa:'Rusakov'; vz:20; gr:53201; oc:3),
             (fa:'Kotov'; vz:18; gr:53032; oc:3),
             (fa:'Ivanov'; vz:19; gr:54403; oc:1),
             (fa:'Chernov'; vz:21; gr:53405; oc:5),
             (fa:'Sidorov'; vz:21;gr:53426; oc:2),
             (fa:'Kozlov'; vz:19; gr:54890; oc:4),
             (fa:'Vasnecov'; vz:22; gr:54408; oc:3),
             (fa:'Shyits'; vz:18; gr:55305; oc:4),
             (fa:'Aksakov'; vz:17; gr:53076; oc:5));
 Sr,vzmin:real;
 i,j,o,k:byte;
 zp:sports;
 bufChange:sports;
 Change:Boolean;
Begin
     k:=10;
   Repeat
     Change:=false;
     for i := 1 to k-1 do
     if (zapisi[i].vz < zapisi[i+1].vz) then
     Begin
       bufChange:=zapisi[i];
       zapisi[i]:=zapisi[i+1];
       zapisi[i+1]:=bufChange;
       Change:=true;
     End;
     dec(k)
   Until Not Change;
  writeln('|fam       |age  | № stud| sred ball|');
  for i:=1 to 10 do
  with zapisi[i]do
  writeln('|',fa:10,'|',vz:5,'|',gr:8,'|',oc:7,'  |');
  writeln;
End.

найти студента, билет которого зарегистрирован раньше других.

Var
   mins:LongInt;
   i,j:Byte;
Begin
   mins:=high(LongInt);
  for i := 1 to 10 do
  Begin
    if zapisi[i].gr < mins then
    Begin
      mins:=zapisi[i].gr;
      j:=i;
    End;
  End;
  Writeln(zapisi[j].fa);
End.

[Serge_Bliznykov]

найти студента, билет которого зарегистрирован раньше других.

   mins:=high(LongInt);
  for i := 1 to 10 do

ну, я бы иницилизацию сделал значением из массива, это и проще и более надёжно, и более гибко. да и переменная mins не нужна:

  j:=1;
  for i := 2 to 10 do
    if zapisi[i].gr < zapisi[j].gr then
         j:=i;
  Writeln(zapisi[j].fa);

[зеленый1]

Огромное спасибо, за уделенное время моей темене:......!!!