Массив: Определить, верно ли, что произведение элементов столбца с известным номером не превышает заданного числа

var a:array[1..6,1..6] of integer;  i,j,b,h,k:integer; 
begin 
for i:=1 to 6do 
begin 
for j:=1 to 4 do 
begin
a[i,j]:=random(10);
write( a[I,j]:5);
end; 
writeln;
end;
writeln('Введите столбец ');
readln(k);
writeln('Введите размер ');
readln(h);
i:=1;
b:=a[i,k];
for i:=2 to 6 do
begin
for j:=1 to 4 do 
begin
if k=j then b:=b*a[i,j];
end;
end;
writeln('Сумма столбца ',k,'  :',b);
end.

const
  n = 6;
 
var
  a: array[1..n, 1..n] of integer;
  i, j, b, h, k: integer;
 
begin
  randomize;
  b := 1;
  writeln('Введите номер столбца (не более 6): ');
  readln(k);
  writeln('Введите заданное число: ');
  readln(h);
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      a[i, j] := random(10) + 1;
      if j = k then 
        b := b * a[i, j];
      write(a[I, j]:5);
    end; 
    writeln;
  end;
  writeln('Произведение элементов ', b, ' столбца массива с известным номером ', k, ' не превышает заданного числа ', h, ': ', b <= h);
end.

var a: array[1..6, 1..6] of integer;i, j, b, h, k: integer;
begin
b := 1;
writeln('Введите номер столбца : ');
readln(k);
writeln('Введите заданное число: ');
readln(h);
for i := 1 to 6 do 
begin
for j := 1 to 6 do 
begin
a[i,j] := random(10);
write(a[I, j]:5);
end;
writeln;
end;
for i:=1 to 6 do
if k=j then 
b:= b * a[i, j];
writeln('сумма ',k,'-го столбца  : ',b);
if b<=h then writeln ('заданное числа превышает: ', h)
         else if b>h then writeln ('заданное не превышает: ',h);
end.