Таблица с абитуриентами Опции

[Schumi]

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

Код

program tabel10A;
uses wincrt;
Var familii:array [1..5] of string[7];
Var predmetu:array [1..5] of string[3];
var srb:array [1..3] of integer;
Var otcenki: array [1..5,1..5] of integer;
Var i,j:integer;
Var a,b,c,d,e;real;
begin;
Begin randomize;
For i:=1 to 5 DO for j:= 1 to 5 do Otcenki [i,j]:=random(6-2)+2;
end;
writeln('введите фамилии');
for i:=1 to 5 do readln(familii[i]);
writeln('введите предметы');
For i:= 1 to 5 do readln(Predmetu[i]);
writeln;
For j:= 1 to 72 do write('_');
writeln;
write('| ФИО   |');
For i:= 1 to 5 do begin write('   ',predmetu[i],'    |') end;
write('  Ср.б. ','  |');
write ('');
writeln;
For j:= 1 to 72 do write('=');
writeln;
write('|');
write(familii[1],' |    ',otcenki[1,1],'     |      ', otcenki [1,2], '   |   ',
otcenki [1,3],'      |     ', otcenki[1,4],'    |  ', otcenki [1,5], '   |    ');
a:=(otcenki[1,1]+otcenki[1,2]+otcenki[1,3]+otcenki[1,4]+otcenki [1,5])/5;
write(a:6:2,'  |');
writeln;
For j:= 1 to 72 do write('=');
writeln;
write('|');
write(familii[2],' |    ',otcenki[2,1],'     |      ', otcenki [2,2], '   |   ',
  otcenki [2,3],'      |     ', otcenki[2,4],'    |  ', otcenki [2,5], '   |    ');
b:=(otcenki[2,1]+otcenki[2,2]+otcenki[2,3]+otcenki[2,4]+otcenki [2,5])/5;
write(b:6:2,'  |');
writeln;
For j:= 1 to 72 do write('=');
writeln;
write('|');
write(familii[3],' |    ',otcenki[3,1],'     |      ', otcenki [3,2], '   |   ',
otcenki [3,3],'      |     ', otcenki[3,4],'    |  ',otcenki [3,5], '   |    ');
c:=(otcenki[3,1]+otcenki[3,2]+otcenki[3,3]+otcenki[3,4]+otcenki [3,5])/5;
write(c:6:2,'  |');
writeln;
For j:= 1 to 72 do write('=');
writeln;
write('|');
write(familii[4],' |    ',otcenki[4,1],'     |      ', otcenki [4,2], '   |   ',
otcenki [4,3],'      |     ', otcenki[4,4],'    |  ', otcenki [4,5], '   |    ');
d:=(otcenki[4,1]+otcenki[4,2]+otcenki[4,3]+otcenki[4,4]+otcenki [4,5])/5;
write(d:6:2,'  |');
writeln;
For j:= 1 to 72 do write('=');
writeln;
write('|');
write(familii[5],' |    ',otcenki[5,1],'     |      ', otcenki [5,2], '   |   ',
otcenki [5,3],'      |     ', otcenki[5,4],'    |  ', otcenki [5,5], '   |     ');
e:=(otcenki[5,1]+otcenki[5,2]+otcenki[5,3]+otcenki[5,4]+otcenki [5,5])/5;
write(e:6:2,'  |  ');
writeln;
For j:= 1 to 72 do write('=');
writeln;
end

помогите составить рейтинг
а то ничего не получается.
Заранее Спасибо.

Добавлено через 4 мин.
точнее расставить абитуриентов в таблице по рейтингу