Определить общее число учеников в параллели 5-х классов

var a[1..11,1..4] of integer;

s:=0;
for i:=1 to 4 do
s:=s+a[5,i];

program a25; 
var a:array [1..11,1..4] of integer;
i,j,s:integer;
begin
writeln('исходный массив ');
for i := 1 to 11 do
begin
for j := 1 to 4 do
begin
a[i, j] := random(10);
write(a[i, j]:3);
end;
writeln;
end;
writeln('полученыый: ');
s:=0;
for i:=1 to 4 do
s:=s+a[5,i];
write(a[i,j]:3);
writeln;
 
end.

program a25;
uses crt;
const m=11;
      n=4;
type mtr=array [1..m,1..n] of integer;
var f:boolean;
procedure matrix(var a:mtr);
var i,j:byte;
begin
for i:=1 to m do
for j:=1 to n do
a[i,j]:=20+random(10);
f:=true;
writeln('Матрица заполнена');
readln
end;
procedure print(a:mtr);
var i,j:byte;
begin
clrscr;
if not f then
 begin
  writeln('Массив еще не создан, вернитесь к пункту 1');
  readln;
  exit
 end;
writeln('Количество учеников в класах по параллелям');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln
 end;
readln
end;
procedure result(a:mtr);
var i:byte;
    s:integer;
begin
clrscr;
if not f then
 begin
  writeln('Массив еще не создан, вернитесь к пункту 1');
  readln;
  exit
 end;
s:=0;
for i:=1 to n do
s:=s+a[5,i];
writeln('Количество учеников в пятых классах=',s);
readln
end;
var a:mtr;
    w:char;
begin
f:=false;
repeat
clrscr;
writeln('Выберите действие');
writeln('1-заполнить матрицу');
writeln('2-показать матрицу');
writeln('3-показать результат');
writeln('другое - выход');
read(w);
case w of
'1':matrix(a);
'2':print(a);
'3':result(a);
else exit;
end;
until not (w in ['1'..'3']);
end.

стр.6 var f:byte;
............
стр.13 f:=1;
.........
стр. 21 и похожие if  f=0 then
.............................
стр. 56  f:=0;