Динамические двумерные массивы

[Razdolbam]

Найти столбец двумерного массива размерности NxM, имеющий наименьшую сумму цифр всех чисел, входящих в этот столбец.

мои наброски

uses
SysUtils;
type mass=array of array of integer;
var a:mass;
i,n,m,k,max:integer;

procedure Vivod(a:mass);
var i,j:integer;
begin
for i:=low(a) to high(a) do
begin
for j:=low(a) to high(a) do
write(a[i,j]:4);
writeln;
end;
end;

begin
randomize;
write('n='); readln(n);
setlength(a,n,n);
for i:=1 to n do a[i-1]:=-5+random(10)
//vivod(a);
//for i:=low(a) to high(a) do
//for j:=low(a[i]) to high(a[i]) do
//begin

Vivod(a);
readln;
end.