Дана квадратная матрица порядка M. Найти суммы элементов ее диагоналей, параллельных главной, начиная с одноэлементной диагонали A[1,M] или A[1,1] — Pascal(Паскаль)

  var
  a: array [1..100,1..100] of integer;
  i,j,n,s,m: integer;
BEGIN
  Writeln('vvedite razmer matricy n');
  Readln(n);
     randomize;
     for i:=1 to n do
     for j:=1 to n do
     a[i,j]:=random(10);
     writeln('matrica');
     for i:=1 to n do
     begin
     for j:=1 to n do
     write('  ',a[i,j],' ');
     writeln;
     end;
writeln('summy diagonaley vyshe glavnoy');
for m:=1 to n-1 do
begin
  s:=0;
  for i:=1 to m do
  s:=s+a[i,n-m+i];
  write (s,' ');
end;
  writeln;
writeln('summy diagonaley nije glavnoy');
  for m:=n-1 downto 1 do
begin
  s:=0;
  for i:=n-m+1 to n do
  s:=s+a[i,i-n+m];
  write(s,' ');
end;
  readln;
  end.