Двумерный массив с динамической переменной Pascal

[AxisNet]

"найти столбики с наименьшей и наименьшей суммой, распечатать найденные столбики и суммы"

подправьте пожалуйста, суммы нашел, а вот минимальную и максимальную сумму выделить не получается

program lab1Var2;
uses crt;

type mas=array[1..3,1..4] of integer;
var i,j,S,Smin,Smax:integer;
    dm:^mas;

begin
    clrscr;
    randomize;
    new(dm);
    for i:=1 to 3 do
        begin
        for j:=1 to 4 do
            begin
            dm^[i,j]:=random(10);
            write(dm^[i,j]:5);
            end;

            writeln;
        end;
    for j:=1 to 4 do begin
    S:=0;
    for i:=1 to 3 do
        S:=S+dm^[i,j];
        write(s:5);
    end;
    dispose(dm);

    readkey;

end.

[AxisNet]

спасибо разобрался, сорри за офтоп

uses crt;
type mas=array[1..3,1..4] of integer;
var i,j,s,smin,maxs,mini,maxi:integer;
      dm:^mas;

begin
clrscr;
randomize;

new(dm);

for i:=1 to 3 do begin
for j:=1 to 4 do begin
dm^[i,j]:=random(10);
write(dm^[i,j]:5);
end;
writeln;
end;

smin:=0;
for i:=1 to 3 do
smin:=smin+dm^[i,1];
maxs:= smin;
mini:= 1;
maxi:= 1;
for j:=2 to 4 do begin
s:=0;
for i:=1 to 3 do
s:= s+dm^[i,j];
if (s>maxs) then begin
maxs:= s;
maxi:= j;
end
else if (s<smin) then   begin
smin:= s;
mini:= j;
end;
end;
writeln ('Max summ = ', maxs, ' v stolb ', maxi);
writeln ('Min summ = ', smin, ' v stolb ', mini);
dispose(dm);

readkey;

end.