Вывести на экран средний балл для каждого ученика и для каждой школы

type shkola=record
            nom:string;//номер школы
            kol:integer;//количество оценок
            sum:integer; //сумма оценок
            end;
var f:text;
    a:array[1..100] of shkola;
    n,m,kol,sum,i,j:integer;
    s,nom:string;
    srb:real;
begin
assign(f,'input.txt'); //файл в папке с программой
reset(f);
writeln('Средний балл каждого ученика');
n:=0; //количество строк в файле
m:=0;//количество разных школ
while not eof(f) do
 begin
  readln(f,s); //читаем строку
  inc(n); //номер строки
  write(copy(s,1,pos(' ',s)-1),' ');//фамилия
  delete(s,1,pos(' ',s));
  write(copy(s,1,pos(' ',s)-1),' ');//имя
  delete(s,1,pos(' ',s));
  nom:=copy(s,1,pos(' ',s)-1);//читаем номер
  write('школа номер ',nom);
  delete(s,1,pos(' ',s)); //удаляем его вместе с пробелом за ним
  kol:=0;
  sum:=0;
  s:=s+' ';//добавим пробел в конец строки для удобства
  while length(s)>0 do //пока строка не кончилась
   begin
    inc(kol); //считаем оценки
    inc(sum,strtoint(s[1]));//и из сумму
    delete(s,1,2); //удалякм по 2 символа
   end;
  writeln('= ',sum/kol:0:2);
  if n=1 then
   begin
    m:=1;
    a[m].nom:=nom;
    a[m].kol:=kol;
    a[m].sum:=sum;
    inc(n);
   end
  else
   begin
    for i:=1 to m do
     begin
      j:=1;
      while (j<=m)and(a[j].nom<>nom) do inc(j);
      if j>m then
       begin
        inc(m);
        a[m].nom:=nom;
        a[m].kol:=kol;
        a[m].sum:=sum;
       end
      else
       begin
        inc(a[j].kol,kol);
        inc(a[j].sum,sum);
       end;
     end;
   end;
 end;
close(f);
writeln;
writeln('Средние баллы по школам');
for i:=1 to m do
writeln('Школа номер ',a[i].nom,' = ',a[i].sum/a[i].kol:0:2);
end.

type shkola=record
            nom:string;//номер школы
            kol:integer;//количество оценок
            sum:integer; //сумма оценок
            end;
var f:text;
    a:array[1..100] of shkola;
    n,m,kol,sum,i:integer;
    s,nom:string;
    srb:real;
begin
assign(f,'input.txt'); //файл в папке с программой
reset(f);
writeln('Средний балл каждого ученика');
n:=0; //количество строк в файле
m:=0;//количество разных школ
while not eof(f) do
 begin
  readln(f,s); //читаем строку
  inc(n); //номер строки
  write(copy(s,1,pos(' ',s)-1),' ');//фамилия
  delete(s,1,pos(' ',s));
  write(copy(s,1,pos(' ',s)-1),' ');//имя
  delete(s,1,pos(' ',s));
  nom:=copy(s,1,pos(' ',s)-1);//читаем номер
  write('школа номер ',nom);
  delete(s,1,pos(' ',s)); //удаляем его вместе с пробелом за ним
  kol:=0;
  sum:=0;
  s:=s+' ';//добавим пробел в конец строки для удобства
  while length(s)>0 do //пока строка не кончилась
   begin
    inc(kol); //считаем оценки
    inc(sum,strtoint(s[1]));//и из сумму
    delete(s,1,2); //удалякм по 2 символа
   end;
  writeln('= ',sum/kol:0:2,' kol=',kol,' sum=',sum);
  if n=1 then
   begin
    m:=1;
    a[m].nom:=nom;
    a[m].kol:=kol;
    a[m].sum:=sum;
    inc(n);
   end
  else
   begin
    i:=1;
    while (i<=m)and(a[i].nom<>nom) do inc(i);
    if i>m then
     begin
      inc(m);
      a[m].nom:=nom;
      a[m].kol:=kol;
      a[m].sum:=sum;
     end
    else
     begin
      inc(a[i].kol,kol);
      inc(a[i].sum,sum);
     end;
   end;
 end;
close(f);
writeln;
writeln('Средние баллы по школам');
for i:=1 to m do
writeln('Школа номер ',a[i].nom,' sum=',a[i].sum,' kol=',a[i].kol,' sb = ',a[i].sum/a[i].kol:0:2);
end.

type shkola=record
            nom:string;//номер школы
            kol:integer;//количество оценок
            sum:integer; //сумма оценок
            end;
var f:text;
    a:array[1..100] of shkola;
    n,m,kol,sum,i:integer;
    s,nom:string;
    srb:real;
begin
assign(f,'input.txt'); //файл в папке с программой
reset(f);
writeln('Средний балл каждого ученика');
n:=0; //количество строк в файле
m:=0;//количество разных школ
while not eof(f) do
 begin
  readln(f,s); //читаем строку
  inc(n); //номер строки
  while not(s[1] in ['1'..'9']) do delete(s,1,1);//удалим все до номера школы
  nom:=copy(s,1,pos(' ',s)-1);//читаем номер
  delete(s,1,pos(' ',s)); //удаляем его вместе с пробелом за ним
  kol:=0;
  sum:=0;
  s:=s+' ';//добавим пробел в конец строки для удобства
  while length(s)>0 do //пока строка не кончилась
   begin
    inc(kol); //считаем оценки
    inc(sum,strtoint(s[1]));//и из сумму
    delete(s,1,2); //удалякм по 2 символа
   end;
   if n=1 then
   begin
    m:=1;
    a[m].nom:=nom;
    a[m].kol:=kol;
    a[m].sum:=sum;
    inc(n);
   end
  else
   begin
    i:=1;
    while (i<=m)and(a[i].nom<>nom) do inc(i);
    if i>m then
     begin
      inc(m);
      a[m].nom:=nom;
      a[m].kol:=kol;
      a[m].sum:=sum;
     end
    else
     begin
      inc(a[i].kol,kol);
      inc(a[i].sum,sum);
     end;
   end;
 end;
close(f);
writeln('Средние баллы по школам');
for i:=1 to m do
writeln('Школа номер ',a[i].nom,' = ',a[i].sum/a[i].kol:0:2);
end.