Найти среднее арифметическое элементов третьего столбца матрицы

uses crt;
const a=8;
b=12;
var
  mas: array [1..a,1..b] of integer;
  i,j : integer;
  s : real;
begin
write ('Первоначальный массив');
writeln;
for i:=1 to a do
for j:=1 to b do
mas[i,j]:=random(200)+100;
for i:=1 to a do
begin
for j:=1 to b do
begin
write (mas[i,j]:4);
end;
writeln;
end;
for j:=3 to 3 do
for i:=1 to a do
s:=s+mas[i,j];
s:=s/a;
writeln('Среднее арифметическое элементов третьего столбца матрицы = ',s);
end.

uses crt; // модуль окна crt
const a=8; //константы:строки
b=12;     //константы:столбцы
var
  mas: array [1..a,1..b] of integer; // описание массива
  i,j : integer;                     //вспомогательные переменные
  s : real;                          //сред. арифметическое
begin
write ('Первоначальный массив');
writeln;
for i:=1 to a do               //
for j:=1 to b do               //
mas[i,j]:=random(200)+100;     // считывание элементов массива через рандом
for i:=1 to a do               //
begin                          //
for j:=1 to b do               //
begin                          //
write (mas[i,j]:4);            // вывод массива
end;                           //
writeln;                       //
end;                           //
for j:=3 to 3 do               //
for i:=1 to a do               //
s:=s+mas[i,j];                 //cумма элементов 3 столюца
s:=s/a;                        // деление на кол-во строк
writeln('Среднее арифметическое элементов третьего столбца матрицы = ',s);
end.