найти номер столбца

[dodomenos]

Ввести массив A(N,M). Найти номер столбца, сумма элементов
которого минимальны.

Прошу подсказать,как вывести массив знаю,а вот дальше не как не разберусть.

program zad83;

{$APPTYPE CONSOLE}

uses
SysUtils;

const
n=3;
m=4;
var
a:array[1..n,1..m] of integer;
i,j:integer;


begin randomize;
writeln;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(10)+1;
write(a[i,j]:4);
end;
writeln;
end; ....

Делаю задачи в Делфи-в консоли-вот дальше подскажите как мне найти номер столбца, сумма элементов
которого минимальны.И результат на экран.

[VadikV]

заведи еще один массив, в который запиши сумму элементов каждого столбца. затем найди в нем минимальный. ну и номер элемента будет равен номеру столбца.

[Летучий_СкилетиК]

заведи еще один массив, в который запиши сумму элементов каждого столбца. затем найди в нем минимальный. ну и номер элемента будет равен номеру столбца.

зачем дрогеценную память так израсходывать?
Лучше сделать так:

program zad83;

{$APPTYPE CONSOLE}

uses
SysUtils;
const
n=3;
m=4;
var
a:array[1..n,1..m] of integer;
i,j,p,min,s:integer;


begin randomize;
writeln;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(10)+1;
write(a[i,j]:4);
end;
writeln;
end;
p:=1;
min:=0;
for i:=1 to n do
    min:=min+a[i,1];
for j:=1 to m do
begin
     s:=0;
     for i:=1 to n do
     s:=s+a[i,j];
if (s<min)then begin p:=j;min:=s;end;
end;
write(p);
end.

[dodomenos]

Работает,все правильно,спасибо вам добрые люди!!!

ps. такой вопрос:если встречаеться два столбца с мин. суммой-то какой из них считать минимальным?! и можно ли это как то прописать в коде?