найти номер столбца с мин. суммой положительный элементов.

[olegozavr]

День добрый товарищи. НЕ могу понять почему считает что-то не то. Подскажите пож.
(подпрограммы юзать обязательно)

program fir;
  const
   n=5;
   m=5;
  type
    matr=array[1..n,1..m] of integer;
  var
    a:matr;
   sm,ik,s1,s,i,j:integer;

  procedure sum(x:matr;ix:integer;var s:integer);
    var
      i,j:integer;
    begin
      j:=ix;
      for i:=1 to n do if x[i,j]>0 then s:=s+x[i,j];
    end;
  procedure inmatr(var x:matr;n,m:integer);
    var
      i,j:integer;
    begin
      for i:=1 to n do
        for j:=1 to m do readln(x[i,j]);
      end;
  procedure outmatr(x:matr; n,m:integer);
    var
      i,j:integer;
    begin
      Writeln('Матрица');
      for i:=1 to n do begin
        for j:=1 to m do write(x[i,j]:5,' ');
        writeln;
        end;
    end;
  begin
    inmatr(a,n,m);
    outmatr(a,n,m);
     s1:=0;
    for i:=1 to m do begin
                      sm:=0; 
                      sum(a,i,sm);
                      if sm>s1 then begin
                                     s1:=sm;
                                     ik:=i;
                                     end;
                     end;

  writeln('номер столбца с мин. суммой ',s1,' = ',ik);
   end.

Всё ребята, спасибо, разобрался сам. (в цикле сумму sm не обнулял, и считалась вся сумма.);

[Shift_sk]

 const n=5;
var a:array[1..6,1..5] of integer;
    h,min:integer;
procedure sum();
var i,j:integer;
begin
 for i:=1 to n do
 for j:=n downto 1 do
 if a[j,i]>0 then a[n+1,i]:=a[n+1,i]+a[j,i];
end;
procedure reade();
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
end;
procedure writ();
var i,j:integer;
begin
for i:=1 to n do begin
writeln;
for j:=1 to n do
write(a[i,j],' ');
end;
writeln('мин сумма-',min,' номер строки - ',h);
end;
procedure poisk();
var k:integer;
begin
min:=1000000000;
for k:=2 to n do
if a[n,k]<min then begin min:=a[n,k]; h:=k; end;
end;
begin
reade;
sum;
poisk;
writ;

end.