Pascal программа которая ведет учет сессии. $

[evklid]

Составить список учебной группы, включающей 40 человек. Для каждого учащегося указать дату рождения, год поступления в техникум, курс, шифр, группу, оценки за 2 сессии. Информацию о каждом учащемся оформить в программе в виде записи. Совокупность записей объединить в массив.
Упорядочить список студентов по среднему баллу последней сессии и распечатать его.
Составить программу, которая обеспечивает ввод полученной информации, распечатку ее в виде таблицы.
Кто может помочь с написанием программы (за вознаграждение) свой образец дам (нерабочий) нужно чуть дописать и проверить.....

[evklid]

Вот мой недоделанный код.

type student = record

fio : string [50];
shifr : longint;
predm : array[1..3] of string [50];
sess: record
mark : array [1..3] of byte;
sr_bale : real;
var
 group : array [1..40] of student;
 s, s1 : student;
 i, j, k :integer;
 z: real;
 t: boolean;
 end;
Begin
 for i:=1 to 40 do begin {40 студентов}
   with s do begin
    readln (fio, shifr);
    
   with sess do begin
    sr_bale :=0;
 for k:=1 to 3 do {3 экзамена}
  begin
   readln ( predm[k], mark [k]);
   sr_bale:=sr_bale + mark [k]; end;
   sr_bale:=sr_bale/3;
   end;
  group [i]:=s; end;
  end;
  for i:=1 to 40 do with group [i]
   do writeln (fio, shifr, sr_bale);
    for i:=40 down to 2 do
     for j:=1 to j-1 do 
      if group [j].sr_bale>group[j+1].sr_bale
       then begin
  s1:=group [j];
  group [j] := group [j+1];
  group[j+1]:=s1;
  end;
  for i:=1 to 40 do with group [j]
  do writeln (fio, shifr, sr_bale);
  end.

[evklid]

тут много мелких ошибок, нету ввода некоторых данных, и в pascal abc никак не хочет запускаться.

[evklid]

что никто не может помочь?