Помогите с заданием по программированию (Паскаль)

uses crt;
const n = 10;
Var mm :array [ 1..n,1..n ] of integer;
i, j, SumAbs : integer;
MinSum : Word;
Begin
ClrScr;
WriteLn('Исходная матрица: ');
Randomize;
For i: = 1 to n do
begin
For j: =1 to n do
begin
mm [ i,j ]:= 10 - Random ( 20 );
Write ( mm [ i,j ]:4);
end;
WriteLn;
end;
MinSum:=65535;
WriteLn ('Суммы модулей элементов диагоналей выше побочной');
For i := n-1 downto 1 do
begin
SumAbs :=0;
For j:=1 to i do
SumAbs:=SumAbs+Abs ( mm [ j, i-j+1 ] );
Write ( SumAbs:4 );
If MinSum > SumAbs then MinSum:=SumAbs;
end;
WriteLn;
WriteLn ( 'Суммы модулей элементов диагоналей ниже побочной');
For i:=2 to n do
begin
SumAbs:=0;
For j :=1 to n+1-i do
SumAbs:= SumAbs+Abs ( mm [ i-1+j,n+1-j ] );
Write ( SumAbs:4 );
If MinSum > SumAbs then MinSum :=SumAbs;
end;
WriteLn;
WriteLn ( 'Минимальная сумма: ', MinSum:4 );
End.