Найти среднюю оценку каждого ученика и класса

const n=20;//для тестирования можно взять меньше
type uchenik=record
             fam:string[20];
             ocn:array[1..12] of integer;
             srd:real;
             end;
var a:array[1..n] of uchenik;
    i,j,imx:byte;
    sr:real;
begin
sr:=0;
for i:=1 to n do
 begin
  writeln('Введите данные ',i,' ученика');
  with a[i] do
   begin
    write('Фамилия: ');readln(fam);
    writeln('Введите 12 оценок от 2 до 5');
    srd:=0;
    for j:=1 to 12 do
     begin
      repeat
       readln(ocn[j]);
      until ocn[j] in [2..5];
      srd:=srd+ocn[j];
     end;
    sr:=sr+srd;
    srd:=srd/12;
    if i=1 then imx:=1
    else if srd>a[imx].srd then imx:=i;
  end;
 end;
writeln('Наивысшую среднюю оценку имеет ученик ',a[imx].fam, '  она=',a[imx].srd:0:2);
sr:=sr/12/n;
writeln('Средняя оценка в классе=',sr:0:2)
end.

const n=20;//для тестирования можно взять меньше
type uchenik=record
             fam:string[20];
             ocn:array[1..12] of integer;
             srd:real;
             end;
var a:array[1..n] of uchenik;
    i,j,imx:byte;
    sr:real;
begin
randomize;
sr:=0;
for i:=1 to n do
 begin
  writeln('Введите данные ',i,' ученика');
  with a[i] do
   begin
    write('Фамилия: ');readln(fam);
    srd:=0;
    for j:=1 to 12 do
     begin
      ocn[j]:=2+random(4);//вводить 240 оценок с клавы это долго, но выбор за Вами
      srd:=srd+ocn[j];
     end;
    sr:=sr+srd;
    srd:=srd/12;
    if i=1 then imx:=1
    else if srd>a[imx].srd then imx:=i;
  end;
 end;
write('Результат');
writeln('Ср.балл':55);
for i:=1 to n do
 begin
  write(a[i].fam:20);
  for j:=1 to 12 do
  write(a[i].ocn[j]:3);
  writeln(a[i].srd:6:2);
 end;
writeln('Наивысшую среднюю оценку имеет ученик ',a[imx].fam, '  она=',a[imx].srd:0:2);
sr:=sr/12/n;
writeln('Средняя оценка в классе=',sr:0:2)
end.