Найти среднее арифметическое элементов в первом столбце в двумерном массиве. Паскаль

const n=3;

var

i, j, s, k: integer;

sa: real;

a: array [1 ... n, 1 ... n] of integer;

begin

writeln ('Ввод элементов матрицы') ;

for i : = 1 to n do

for j : = 1 to n do

begin

write ('a[', i, ',', j, ']=') ;

readln (a[i, j]) ;

end;

s : = 0; k : = 0;

for i : = 1 to n do

for j : = 1 to 1 do

begin

s : = s + a[i, j];

k : = k + 1;

end;

sa : = s / k;

writeln ('Среднее арифметическое элементов матрицы = ', sa:2:2) ;

end.