Задача на квадратную матрицу..

[Razorishe]

Доброе время суток уважаемые программисты, возникла проблема с решение данной задачи в ПАСКЕЛЕ:

Размерность матрицы задать именованными константами, значения элементов массива - в списке инициализации. В целочисленной квадратной матрице. Определить:
1) произведение элементов в тех строках, которые не содержат отрицательных элементов;
2) максимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы.

С первым заданием справился, второе не получается.. Буду очень благодарен за помощь

[capta1n]

2)

program pascall;
const
 n = 5;
var
 a : array [1..n,1..n] of integer;
 sum,maxsum : integer;
 i,k,j : byte;
begin
 randomize;
 for i:=1 to n do
  for k:=1 to n do a[i,k]:=random(10);
 for i:=1 to n do
 begin
   for k:=1 to n do write (a[i,k],'|');
   writeln
 end;
 maxsum:=a[n,1];
 for i:=2 to n do
 begin
   sum:=0;
   for k:=1 to n-i+1 do inc(sum,a[i+k-1,k]);
   if sum>maxsum then maxsum:=sum
 end;
 for k:=2 to n do
 begin
   sum:=0;
   for i:=1 to n-k+1 do inc(sum,a[i,i+k-1]);
   if sum>maxsum then maxsum:=sum
 end;
 writeln ('Maxsum is ',maxsum);
 readln
end.

[Kolyan876]

maxsum:=a[n,1];

Если в матрице есть отрицательные элементы, то суммы во всех диагоналях могут быть меньше случайного элемента матрицы. Может лучше
maxsum:=-maxint-1?

[Razorishe]

Огромное спасибо! Пошел на практику проверю..

[capta1n]

это не случайный элемент матрицы, а левый нижний угол, что так же считаю параллелью к основной диагонали: если все остальные суммы меньше, то этот элемент будет являть максимально суммой