ЗАПИСИ

[gnom63]

вот КОД

Program Lab8;
type
stud=record
fam:string[12];
b1,b2,b3,b4:2..5;
Sb:real
end;
var
tbl:array[1..15] of stud;
i,n:integer;
begin
WriteLn('введите число студентов');
ReadLn(n);
WriteLn('введите фамилию');
for i:=1 to n do
with tbl[i] do
begin
WriteLn('фамилия ', i);
Read(fam);
WriteLn('введите оценки по информатике физике математике и химии');
ReadLn(b1,b2,b3,b4);
end;
for i:=1 to n do
with tbl[i] do
Sb:=(b1+b2+b3+b4)/4;
for i:=1 to n do
With tbl[i] do
WriteLn(fam:12, sb:6:3);
WriteLn('------------------------------------');
WriteLn('| студ | предмет |');
WriteLn('|----------------------------------|');
WriteLn('| фам | инф| физ| мат| хим| ср.бал |');
WriteLn('|----------------------------------|');
for i:=1 to n do
with tbl[i] do
WriteLn('|',fam:8,'| ', b1,' ':2,'| ',b2,' ':2,'| ',b3,' ':2,'| ',b4,' ':2,'|',sb:2:2, ' |');
WriteLn('|--------|----|----|----|----|-----|');
end.{LAb7}

=================
сделайте пожалуйста что бы
таблица заполнялась по убыванию среднего бала
т.е. от самого большого бала к самому маленькому

[alex_fcsm]

Сделайте сортировку(какую знаете) по искомому полю

Как вариант(самая простая сортировка):

Program Lab8;
type
stud=record
fam:string[12];
b1,b2,b3,b4:2..5;
Sb:real
end;
var
tbl:array[1..15] of stud;
i,j,n:integer;
temp:stud;
begin
WriteLn('введите число студентов');
ReadLn(n);
WriteLn('введите фамилию');
for i:=1 to n do
with tbl[i] do
begin
WriteLn('фамилия ', i);
Read(fam);
WriteLn('введите оценки по информатике физике математике и химии');
ReadLn(b1,b2,b3,b4);
Sb:=(b1+b2+b3+b4)/4;
end;
  for i:=2 to n do
    for j:=n downto i do
      if tbl[j-1].sb>tbl[j].sb then
        begin
          Temp:=tbl[j-1];
          tbl[j-1]:=tbl[j];
          tbl[j]:=temp;
        end;
for i:=1 to n do
With tbl[i] do
WriteLn(fam:12, sb:6:3);
WriteLn('------------------------------------');
WriteLn('| студ | предмет |');
WriteLn('|----------------------------------|');
WriteLn('| фам | инф| физ| мат| хим| ср.бал |');
WriteLn('|----------------------------------|');
for i:=1 to n do
with tbl[i] do
WriteLn('|',fam:8,'| ', b1,' ':2,'| ',b2,' ':2,'| ',b3,' ':2,'| ',b4,' ':2,'|',sb:2:2, ' |');
WriteLn('|--------|----|----|----|----|-----|');
end.

P.S. Пользуйтесь поиском.
P.P.S. Зачем заводить поле, которое можно вычислить из предыдущих???Имхо
Да и к тому же вычисление среднего балла можно было сделать в цикле ввода данных, а не организовывать отдельный цикл