Массивы

[mrX91]

Помогите исправить алгоритм на динамический массив)

Дана целочисленная прямоугольная матрица. Определить максимум среди сумм диагоналей, параллельных главной диагонали.

var n,i,j,k,l,m,max:integer;
    a:array[1..20,1..20]of integer;
    b,c:array[1..38]of integer;
begin

write('n=');readln(n);
randomize;
Writeln('Ishodnaja matrica:');
for i:=1 to n do
   begin
     for j:=1 to n do
         begin
           a[i,j]:=random(10);
           write(a[i,j]:3);
         end;
      writeln;
   end;
readln;
for l:=1 to n-1 do   //считаем суммы диагоналей выше главной
   begin
     for i:=1 to n-1 do
       begin
         for j:=2 to n do
         if j=i+l then
            begin
              b[l]:=b[l]+a[i,j]; //заносим их в массив
            end;
       end;
  end;
for l:=1 to n-1 do     //считаем суммы в диагоналях ниже главной
   begin
     for i:=2 to n do
       begin
         for j:=1 to n-1 do
         if j=i-l then
           begin
             c[l]:=c[l]+a[i,j];  //записываем их в массив
          end;
       end;
  end;
for i:=n to 2*n-2 do   //собираем два массива в один
b[i]:=c[i-n+1];
max:=b[1];
for i:=2 to n do
if b[i]>max then max:=b[i];  //находим максимум
writeln('max=',max);
readln;
end.

[Npwas]

Вот динамический массив:

  Var 
    A:array of array of integer;
    b,c:array of integer;
    p,n,m:integer;
{p-длинна массивов b и c; n- кол-во строк матрицы а, m- кол-во столбцов матрицы а}

begin
Write('Vevdite kol-vo strok maztrizi A: ');
Readln(n);
Write('Vevdite kol-vo stolbzov maztrizi A: ');
Readln(m);
SetLegth(A,n,m); //Устанавливаем размер массива
write('Vvedite razmer massivov b и c : ');readln(p);
randomize;
SetLength(b,p);
SetLength(c,p);
Writeln('Ishodnaja matrica:');

   ...

end.

__________________
<---- Весы благодарности находятся там.