Pascal есть проблемка с процедурами

[RUSTWD]

В общем вот задача
Если k-ый столбецпрямоугольной матрицы имеет минимальную сумму элементов, определить сумму элементов столбцов до k-ого, иначе сумму элементов столбцов после k-ого.

const n=4, m=5;
type matr:= array [1..n,1..m] of real;
var   i,j:integer; f:matr;
procedure minimal(A: matr; var min:real) k:integer;
var i,j:integer; 
begin
for i:=1 to n do
for j:=1 to m do
if (a[i,j]<0) then a[i,j]:=k; 
end;

мм а дальше, как вызывать немного в недоумении