Вывести номера групп в порядке убывания средней успеваемости их студентов

Type zap=Record
Nomer:Real;
Fam:String;
F,C,E:Real;
Sr:Real;
End;
 Var gruppa: Array[1..10] of zap;
     i,j,n: Integer;
     Buf:Real;
Begin
 Write('Vvedite kol-vo studentov - ');
 Readln(n);
  For i:=1 to n do
  With gruppa[i] do Begin
                    Write('Vvedite familiu ',i,' -go studenta - ');
                    Readln (Fam);
                    Write('Vvedite nomer gruppi ',i,' -go studenta - ');
                    Readln(Nomer);
                    Write('Vvedite ozenki ',i,' -go studenta - ');
                    Readln(F,C,E);
                    Writeln;
                    Sr:=(F+E+C)/3;
                    End;
 Writeln('|   familia  |','nomer|','matematika|','phizika|','programmirovanie|','srednee|');
 For i:=1 to n do
  Writeln('|',gruppa[i].Fam:7,'|',gruppa[i].Nomer:5:0,'|',gruppa[i].E:10:0,
   '|',gruppa[i].F:12:0,'|',gruppa[i].C:16:0,'|',gruppa[i].Sr:7:0,'|');
  Writeln;
 For i:=1 to n-1 do
 For j:=1 to n-1 do
  If gruppa[j].Sr<gruppa[j+1].Sr then Begin
                                      Buf:=gruppa[j].Sr;
                                      gruppa[j].Sr:=gruppa[j+1].Sr;
                                      gruppa[j+1].Sr:=Buf;
                                      End;
 Writeln('srednee znachenie po ubivaniju');
 For j:=1 to n do writeln(gruppa[j].Sr:0:0);
Readln;
End.

  percent := 0; //добавьте переменную типа real в секцию var
  for i := 1 to n do 
    with gruppa[i] do
      if (F >= 4) and (C >= 4) and (E >= 4)
        then percent := percent + 1;
  percent := percent / n * 100;
  writeln('Procent sdavshih na 4 i 5: ', percent:0:1);