Нельзя преобразовать тип array 1.100 of integer к integer

program project2;
var k: array [1..10,1..10] of integer;
i, j, n:integer;
h: double;
begin
randomize;
writeln('Исходный массив');
for n:=1 to 10 do
begin
k[i,j]:=1+random(100);
write(k[i,j]:5);
end;
writeln;
h:=1;
for n:=1 to 10 do
h:= h * k[j];
writeln('Произведение элиментов массива: ', h);
readln;
end.