Файл содержит сведения об абитуриентах. Выведите список абитуриентов из задаваемой школы и определите их общий балл на вступительных экзаменах

Program z6;
var F:text;
    num:array[1..100] of string;
    abi:array[1..100] of string[19];
    god:array[1..100] of string;
    shk:array[1..100] of integer;
    mat:array[1..100] of integer;
    fiz:array[1..100] of integer;
    rus:array[1..100] of integer;
    i,shkola,obball:integer;
    srball1,srball2,srball3:real;
begin
i:=1;
 obball:=0;
 srball1:=0;
 srball2:=0;
 srball3:=0;
 
 write('Номер школы: ');
 readln(shkola)    ;
 assign(F,'H:\abi.txt');
 writeln('Абитуриент школы ',shkola);
reset(F);
 while not EOF(F) do
  begin
  readln(F,num[i],abi[i],god[i],shk[i],mat[i],fiz[i],rus[i]);
if (shk[i]=shkola) then begin
    writeln(abi[i],'  ',god[i],'  ',mat[i],'  ',fiz[i],'  ',rus[i]);
    end;
 
    obball:=obball+mat[i]+fiz[i]+rus[i];
 
    srball1:=mat[i]/8;
    srball2:=fiz[i]/8;
    srball3:=rus[i]/8
  end;
  writeln;
  writeln('Общий балл ',obball);
  writeln('Средний балл по Математике: ',srball1:6:2);
  writeln('Средний балл по Физике ',srball2:6:2);
  writeln('Средний балл по Русскому языку ',srball3:6:2);
 close(F);
 readln;
end.