Найти сумму элементов главной и побочной диагонали

For i:=1 to N do
Begin
  Sum1:=Sum1+m[i,i];
  Sum2:=Sum2+m[i,N-i+1)];
end;

var
  A: array[1..20, 1..20] of integer;
  i, j, n, S1, S2: integer;
  
begin
  writeln('Вводим двумерный массив:');
  writeln;
  randomize;
  n := 2 + random(19);
  S1 := 0; S2 := 0;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(200);
      write(a[i, j]:5);
      if i = j then S1 := S1 + a[i, j] //Сумма элементов главной диагонали
      else
      if i + j = N + 1 then S2 := S2 + a[i, j] //Сумма элементов побочной диагонали
    end;
    writeln
  end;  
  writeln;
  writeln('Сумма элементов главной диагонали:  ', S1);
  writeln('Сумма элементов побочной диагонали:  ', S2)
end.

Const N = 10;
Var
  m         : array[1..N,1..N] of Integer;
  i         : Byte;
  Sum1,Sum2 : Integer;
 
Begin  
  {...}
  For i:=1 to N do
  Begin
    Sum1:=Sum1+m[i,i];
    Sum2:=Sum2+m[i,N-i+1];
  end;
end.