Двумерные массивы, Помогите, пожалуйста, найти ошибку Опции

[Eichhorn]

Есть задача:
Дана матрица M*N Найти номер её столбца с наименьшим произведением элементов и вывести данный номер, а также значение наименьшего произведения.
Вот текст моей программы:

const
n=4;
m=6;
var
a:array[1..m, 1..n] of integer;
i,j,p,min,f:integer;

begin
p:=1;
randomize;
for i:=1 to m do
        begin
        for j:=1 to n do
                begin
                a[i,j]:=random(51);
                writeln(a[i,j]);
                end;
        writeln;
        readln;
        end;

for i:=1 to m do
begin
        for j:=1 to n do
        min:=p*a[1,j];
                begin
                p:=p*a[i,j];
                if p<min then
                        begin
                        min:=p;
                        f:=i;
                        end;
                end;


end;
writeln(min);
writeln(f);
readln;
end.

У меня программа выводит все элементы массива, а дальше ломается. Сначала без readln она сразу ломалась, но когда я его поставила, стала выводить массив. А вот дальше я никак не могу найти ошибку, почему не выводит остальное...

[Eichhorn]

Спасибо огромное!!! Я про longint даже не знала...