наибольшая сумму элементов столбца Delphi

[warma2d]

Здравствуйте!
Попробовал поискать аналогичное в поиске, но мало что нашёл интересного.

Задана матрица X(NxM). Напечатать номер столбца, имеющего наибольшую сумму элементов.

Помогите пожалуйста разобраться с этой задачкой

program Rabota621;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  math;

Var

i,j,n,m,s,max,h:integer; //rabo4aya peremennaya
x:array [1..10,1..10] of integer; // Massiv 1


begin

writeln('V-te kol-vo n <=10');
readln(n);
writeln('V-te kol-vo m <=10');
readln(m);
writeln ('v-te massiv 1 ');
for i:=1 to n do
for j:=1 to m do
readln(x[i,j]);

  {ishem stolbec s max summoy elementov, index v peremennoy h}
  for i:= 0 to N - 1 do begin
    s:= 0;
    for j:= 0 to M - 1 do s:= s + x[i, j];
    //c[i]:= s;
    //if i = 0 then k:= c[0];
    //if c[i] < k then begin
      //k:= c[i];
      h:= i;
    end;



Writeln('Nomer stolbca  = ', h);
Readln;

end.

Заранее спасибо!

[Stilet]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  math;

Var

i,j,n,m,s,h:integer; //rabo4aya peremennaya
x:array [1..10,1..10] of integer; // Massiv 1
max:array[1..10] of integer;

begin

for i:=1 to 10 do begin
  for j:=1 to 10 do begin
   x[i,j]:=random(100);
   max[j]:=max[j]+x[i,j];
   write(x[i,j]:5);
  end; writeln;
end;
 i:=1;         writeln;
 for j:=1 to 10 do begin
   if max[i]<max[j] then i:=j;
   write(max[j]:5);
 end;writeln;



Writeln('Nomer stolbca  = ', i);
Readln;

end.

Примени военную хитрость.
Посмотри код и попытайся разобраться в нем.

[warma2d]

Stilet, Огромное спасибо!

Разбираюсь, разбираюсь...
Кажется, что всё просто, но понять не так просто

[Stilet]

А что тут понимать? Я запросил третий массив, элементы которого будут хранить суммы столбца.
Здесь

max[j]:=max[j]+x[i,j];

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