Верно ли я решил задачу: Дана матрица nxm действительных чисел. Найти столбец матрицы с минимальным произведением элементов.

[Тырин Артем]

Даны натуральные числа n, m и матрица разрядности nxm действительных чисел, где n,m<=7. найти столбец матрицы с минимальным произведением элементов.
Правильно ли я решил задачу

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.

Пожалуйста, оформляйте Ваш код согласно правилам.

[newerow1989]

Верно считает (включая отрицательные числа)!