Найти столбец матрицы с минимальным произведением элементов

Program dsf;
var a:array[1..7,1..7] of real;
sq:real; 
p,n,m,i,j:integer;
s:array [1..7] of real;
begin 
randomize;
repeat
write('введите n,m: ');
readln (n,m); 
if (n<=0) or(n>7) or (m<=0) or (n>7) then writeln ('неверные данные')
until (n>0) and (n<=7) and (m>0) and (n<=7);
for i:=1 to m do 
s[i]:=1;
for i:=1 to n do begin 
for j:=1 to m do begin 
a [i,j]:= random(101)-50;
write(a[i,j]:8:2);
end;
writeln;
end;
for j:=1 to m do 
for i:=1 to n do 
s[j]:=s[j]*a[i,j];
sq:=s[1];
p:=1;
for i:=2 to m do 
if sq>s[i]then begin
sq:=s[i];
p:=i;
end;
writeln('Искомый столбец:',p)
end.

var a:array[1..7,1..7] of real;
    n,m,i,j,jmin:integer;
    p,min:real;
begin
randomize;
repeat
write('введите n,m: ');
readln (n,m);
if (n<1) or(n>7) or (m<1) or (n>7) then writeln ('неверные данные')
until (n>0) and (n<=7) and (m>0) and (m<=7);
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a [i,j]:=-5+10*random;
    write(a[i,j]:8:2);
   end;
  writeln;
 end;
writeln;
for j:=1 to m do
 begin
  p:=1;
  for i:=1 to n do
  p:=p*a[i,j];
  write(p:8:2);
  if j=1 then
   begin
    min:=p;
    jmin:=j;
   end
  else if p<min then
   begin
    min:=p;
    jmin:=j;
   end;
 end;
writeln;
writeln('Минимальное произведение в столбце ',jmin,'=',min:0:2)
end.