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

Program Practic11;
Uses crt;
Type Tabl = record
       Family: string[15];
       Mat: 2..5 ;
       Rus: 2..5;
       Phiz: 2..5;
       Point:real
     End;
Var list:array[1..50] of Tabl;
    i,n:integer; F1,F2: text;
    Sr:real;
Begin
   Clrscr;
   Assign(F1,'vedomоst.txt');
   Reset(F1);
   Readln(F1); Readln(F1);
   n:=1;
While not EOF(F1) do
    Begin
     Readln(F1,list[n].Family,list[n].Mat, list[n].Rus,
                list[n].Phiz);                          
     list[n].Point:=(list[n].Mat+list[n].Rus+  
                list[n].Phiz)/3;
     n:=n+1
    End;
   sr:=0;
   For i:=1 to n-1  do
      With list[i] do
       If point>= sr then sr:=point;
   For i:=1 to n-1 do
     With list[i] do
     If  point=sr then
          Writeln(Family:15,'---',point:8:2);
   Readkey
End.