const
  Xcap = 8;
  Ycap = 8;

type
  data = array[1..Xcap, 1..Ycap] of integer;

var
  A: data;

function max_column(d: data): integer;
var
  sum, i, j, col, top: integer;
begin
  top:= MaxInt*(-1);
  for i := 1 to Xcap do
  begin
    sum := 0;
    for j := 1 to Ycap do
    begin
      sum := sum + A[i, j];
    end;

    if (sum > top) then
    begin
      top := sum;
      col := i;
    end;
  end;
  max_column := col;
end;

begin
  randomize;
  var i, j: integer;
  for i := 1 to Xcap do
  begin
    for j := 1 to Ycap do
      A[i, j] := random(1000)-500;
  end;

  writeln(max_column(A));
end.