Помогите пожалуйста с задачей в Паскале!

Я несогласна с Георгием: насколько я поняла, найти надо не наименьшее КОЛИЧЕСТВО отрицательных элементов в столбцах, а из условия задачи: "наименьший из отрицательных элементов столбца".
У меня получилось так:
const n=3;
var i,j,k:integer;
b:array[1..n,1..n] of longint;
rez:array[1..2,1..n] of longint;
min:longint;
begin
writeln('vvedite chisla po strokah:');
for i:=1 to n do
for j:=1 to n do read(b[i,j]);
for j:=1 to n do
begin
k:=0; min:=b[1,j];
for i:=1 to n do
begin
if b[i,j]<0 then k:=k+1;
if (b[i,j]<0) and (b[i,j]<=min)then min:=b[i,j];
end;
if k>0 then begin rez[1,j]:=k; rez[2,j]:=min; end
else begin rez[1,j]:=0; rez[2,j]:=0; end
end;
for j:=1 to n do
begin
if rez[1,j]>0 then writeln(j,' stolbets: ',rez[1,j],' otritsatelnih i min=',rez[2,j])
else writeln(j,' stolbets: otritsatelnih net');
end;
end.

Где rez - это таблица, в первой строке которой указаны количества отрицательных элементов в каждом столбце заданной квадратной матрицы, а во второй строке - найменший отрицательный элемент соответствующего столбца (если в этом столбце вообще есть отрицательные элементы) .
Кстати, не указаны размеры исходной матрицы, поэтому я написала для n=3, но вместо 3 можно поставить и другое число.

P.S. Надеюсь, что автор вопроса не обманет моих ожиданий и всё-таки начнёт указывать лучший ответ)))))))))

введи массив S длиной по числу столбцов и туда количество < элементов, дальше все просто. найти мин в массиве S

Сам решай за спасибо