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

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