Работа с типом "запись"

type student=record
   fio: array[1..10] of char;
   godroj: 1965..1975;
   godpost:1985..1995;
   ozenki: (alg, hist, comp):1..5;
   end;
var group:array[1..5] of student;
  s1:student;
  i,j:integer;
begin
   with s1 do begin
     for i:=1 to 5 do begin
        for j:=1 to 10 do read(fio[j]);
       readln(godroj,godpost);
       with ozenki do readln (alg, hist,comp);
     group[i]:=s1;
     end;
  end;
writeln('список отличников');
for i:=1 to 5 do with group[i],ozenki do
if ((alg=5) and (hist=5) and (comp=5)) then
writeln(fio,godroj,godpost);
end.

ozenki: array[alg, hist, comp] of 1..5;

ozenki: (alg, hist, comp):1..5;

TOcenka = 1..5;
...
Ocenki: record alg,hist,comp:TOcenka; end;
...

type student=record
   fio: array[1..20] of char;
   godroj: 1965..1995;
   godpost:1985..2009;
   oc: record alg:1..5; hist:1..5; inf:1..5; end;
   sr_ball:real;
   end;
var group:array[1..5] of student;
 s,s1:student;
 i,j:integer;
begin
   with s1 do begin
    for j:=1 to 10 do read(fio[j]);
    writeln('god,godpost'); readln(godroj,godpost);
    sr_ball:=0;
     for i:=1 to 5 do begin
       with oc do readln (alg, hist,inf);
       sr_ball:=sr_ball+oc[i];
       group[i]:=s1;
     end;
  end;
writeln('сортировка по среднему баллу');
for i:=1 to 5 do with group[i],oc do
 if group[i].sr_ball>group[i+1].sr_ball then begin
 s:=group[i];
 group[i]:=group[i+1];
 group[i+1]:=s;
 writeln('fio,godrojd,godpost: ', fio ,godroj ,godpost );
readln;
end.

   sr_ball:=0;
     for i:=1 to 5 do begin
       with oc do readln (alg, hist,inf);
       sr_ball:=sr_ball+oc[i];
       group[i]:=s1;
     end;

sr_ball := (oc.alg + oc.hist + oc.inf)/3;