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

uses crt;
var a:array[1..20,1..20]of integer;
    n,i,j,c,sum,k,max,l,p:integer;
begin
clrscr;
write('Vvedite razmernost matricy n= ');readln(n);
randomize;
Writeln('Matrica:');
for i:=1 to n do
   begin
     for j:=1 to n  do
       begin
         c:=random(10)-2;
         if c=0 then c:=1;//чтобы не было нолей, а то произведение будет ноль, неинтересно
         a[i,j]:=c;
         write(a[i,j]:4);
       end;
     writeln;
   end;
for i:=1 to n do
 begin
   p:=1;k:=0;
   for j:=1 to n do
   if a[i,j]<0 then k:=k+1;//считаем в строке отрицательные
   if k=0 then //если нет
     begin
       for c:=1 to n do
       p:=p*a[i,c]; //считаем произведение
       writeln('В строке ',i,' произведение=',p);
     end;
 end;
max:=-maxint; //за макс берем самое маленькое число из integer
for l:=1 to 2*n-1 do
  begin
    sum:=0;
    if l<n then  //ниже главной диагонали, если и ее надо, то l<=n
      begin
       for i:=n-l+1 to n do
       for j:=1 to l do
       if j=i-n+l then sum:=sum+a[i,j];
       if sum>max then max:=sum;
      end
    else if l>n then  //выше главной диагонали
      begin
       for i:=1 to 2*n-l do
       for j:=l-n+1 to n do
       if j=i+l-n then sum:=sum+a[i,j];
       if sum>max then max:=sum;
      end;
  end;
writeln('max_sum=',max);
readln
end.