Задача по PASCAl. Помогите сделать.

[Waia]

в матрице имеется столбец сумма элементов которого равна нулю. Необходимо заменить элементы этого столбца, значением максимума найденного в четных строках.

[Sazary]

Как-то так:

program matrpr;
uses crt;

const M=7; N=7;
var
matr : array[1..M,1..N] of integer;
i,j,max,S,numb : integer;

begin
clrscr;

randomize;
for i:=1 to M do
 begin
 for j:=1 to N do
  begin
  matr[i,j] := random(10)-5;
  write(matr[i,j]:3,' ');
  end;
 writeln;
 end;

max := matr[2,1];
for i:=1 to M do
 if i mod 2 = 0 then
 for j:=1 to N do
  if matr[i,j]>max then max := matr[i,j];

for j:=1 to N do
 begin
 S := matr[1,j];
 for i:=2 to M do
  S := S + matr[i,j];
 if S = 0 then
  begin
  for i:=1 to M do
   matr[i,j] := max;
  writeln('Stolbec nomer ',j);
  end;
 end;
readln;
writeln('------------------');
for i:=1 to M do
 begin
 for j:=1 to N do
  write(matr[i,j]:3,' ');
 writeln;
 end;

readln;
end.