Двумерный массив.Поиск столбца сумма,которого равна 0

[Almost456]

Задание:
В матрице имеется столбец,сумма элементов которого равна нулю.Необходимо заменить его элементы на значение максимума,найденного в чётных строках.
В задании только подсчитал суммы столбцов, а вот найти столбец и заменить в чётных строках на значение максимума никак.
Короче вот прога:2MASS.TXT
Помогите доделать.

[alex_fcsm]

uses crt;
var a:array[1..4,1..4]of integer;
    i,j,max,sum,k:integer;

begin
clrscr;
randomize;
for i:=1 to 4 do
 for j:=1 to 4 do
  read(a[i,j]);
for j:=1 to 4 do
 begin
  sum:=0;
  for i:=1 to 4 do
  sum:=sum+a[i,j];
  if sum=0 then k:=j;
 end;
 max:=a[2,1];
 for i:=2 to 4 do
  if i mod 2=0 then
    for j:=1 to 4 do
     if a[i,j]>max then max :=a[i,j];
for i:=1 to 4 do
 a[i,k]:=max;
for i:=1 to 4 do
begin
 for j:=1 to 4 do
  write(a[i,j]:3);
writeln;
end;
end.

[Rusl92]

мой вариант решения:

var a:array[1..4,1..4] of integer;
    i,j,n,m,sum,nomer,maks:integer;
begin
    readln(n,m);
    for i:=1 to n do
     for j:=1 to m do
       begin
        write('Vvedite a[',i,',',j,']= ');
        readln(a[i,j]);

       end;

   {Vvod zavershen}

   for i:=1 to n do
    begin
     for j:=1 to m do
      write(a[i,j],' ');
     writeln;
    end;
   readln;
   {Viveli massiv }
   {Teper' ishem nomer stolbca}
   for j:=1 to m do
    begin
    sum:=0;
     for i:=1 to m do
      sum:=sum+a[i,j];
     if sum=0
      then
       begin
        nomer:=j;
        break;
       end
    end;
   {Maks v chetnih}
   maks:=-32768;
   for i:=1 to n do
    if (i mod 2=0)
      then
       begin
        for j:=1 to m do
        if maks<a[i,j] then
         maks:=a[i,j];
       end;
    {zamena elementov na maks}
    for i:=1 to n do
     a[i,nomer]:=maks;
    {Vivod}
    for i:=1 to n do
    begin
     for j:=1 to m do
      write(a[i,j],' ');
     writeln;
    end;
    readln;
end.

[Almost456]

Странно.Заменяет только 4 строку,а на 2 не обращает внимания.

[Almost456]

Нет.Поиск вообще неправильный.Как я понял ваши программы ищут не строки а столбцы и при чём во всех строках,а надо в чётных строках.

[Rusl92]

ты что?
for i:=1 to n do
if (i mod 2=0) {проверка на четность строки}
then
begin
for j:=1 to m do
if maks<a[i,j] then
maks:=a[i,j];
end;