Найти среднее арифметическое значение элементов второго столбца матрицы — Pascal(Паскаль)

program Project5;

Var
  i, j: Integer;
  a: array [1 .. 12, 1 .. 12] of Integer;
  sum, count: real;

begin
  for i := 1 to 12 do
  begin
    for j := 1 to 12 do
    begin
      a[i, j] := Random(9);
      Writeln(a[i, j], ' ');
    end;
    Writeln;
  end;
  sum := 0;
  for i := 1 to 12 do
    sum := sum + a[i, 2];
  count := sum / 12;
  Writeln(count:1:4);
  readln;

end.