В двухмерном массиве хранится информация о количестве учеников в каждом классе каждой параллели школы (с 1-й по 11-ю)

const
  n=5;        //  5 Параллелей ( напр:А, Б, В, Г, Д);
  m=11;     //11 классов;
var
  a: array[1..n,1..m] of integer;
  i,j,s,max,k: integer; 
begin;
  s:=0;
  writeln ('Количество учеников по классам:');
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(25,30);
      write (a[i,j]:3);
    end;
    writeln;
  end;  
  writeln;
  write ('Введите номер параллели: ');
  readln (j);
  for i:=1 to n do 
    s:=s+a[i,j];
  writeln ('В ',j,'-ой параллели всего ',s,' учеников');
 
writeln;
 
j:=9;
max:=a[1,j]; k:=1; { к-порядковый номер класса с наибольшей заполняемостью }
for i:=2 to 5 do 
if a[i,j]>max then
   begin
   max:=a[i,j]; 
   k:=i;
   end; 
write(' Класс в параллели 9-х классов  наибольшей заполняемости c порядковым номером:№',k);
END.

const
  n=5; //  5 Параллелей ( напр:А, Б, В, Г, Д)
  m=11;//11 классов
var
  a: array[1..n,1..m] of integer;
  i,j,s,max,k,t: integer; 
begin;
  s:=0;
  writeln ('Количество учеников по классам:');
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(25,30);
      write (a[i,j]:3);
    end;
    writeln;
  end;  
  writeln;
  write ('Введите номер параллели: ');
  readln (j);
  for i:=1 to n do 
    s:=s+a[i,j];
  writeln ('В ',j,'-ой параллели всего ',s,' учеников');
 
writeln;
 
j:=9;
max:=a[1,j]; k:=1; { к-порядковый номер класса }
for i:=2 to 5 do 
if a[i,j]>max then
   begin
   max:=a[i,j]; 
   k:=i;
   end; 
writeln('Самый большой класс в параллели 9-х классов c порядковым номером:',' ',k);
 
t:=a[i,1]; 
for j:=1 to 5 do
if a[i, j]>t then t:=a[i,j];
writeln('Численность cамого большого класса в параллели 9-х классов  ', t);
END.