Информатика (паскаль) Вычислите произведение элементов k-го столбца двумерного массива A(N,M).

var i, j, k, m, n, pro: integer;
a: array [1..100,1..100] of byte;
begin
write ('n, m = ');
readln (n, m);
k:=1+random (m);
writeln ('k = ',k);
pro:=1;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=1+random(9);
write (a[i, j]:2);
if j = k then pro:=pro*a[i,j];
end;
writeln;
end;
writeln ('Произведение столбца (',k,') = ', pro);
end.