Написать программу для вычисления суммы элементов главной диагонали массива

program C2;
Var S,i,j,N:integer;
    a:array [1..1000,1..1000] of integer;
 
 
Begin
   Randomize;
   Write('Ââåäèòå êîë÷è÷åñòâî ñòðîê è ñòîëáöîâ:'); readln(n);
   S:=0;
   
   For i:=1 to n do begin
      For j:=1 to n do begin
         a[i,j]:=random(1000+1);
         Writeln('Çàïîëíåíèå ìàññèâà ãåíåðàòîðîì ñëó÷àéíûõ ÷èñåë...');
         If i=j then begin
            S:=S+a[i,j];
         End;
      End;
   End;
   Writeln('Ñóììà ýëåìåíòîâ ãëàâíîé äèàãîíàëè ìàññèâà=',S);
End.

//заголовок программы не обязателен
uses crt;//чтобы все вышло в одном окне
const nmax=20;//зачем больше, если все равно не войдет на экран
Var s,i,j,n:integer;
    a:array [1..nmax,1..nmax] of integer;
Begin
   Randomize;
   repeat
   Write('Введите размер матрицы до ',nmax,' n=');
   read(n);
   until n in [1..nmax];
   s:=0;
   For i:=1 to n do
    begin
     For j:=1 to n do
      begin
       a[i,j]:=random(20)+1;//зачем 1000?
       write(a[i,j]:4);
       If i=j then s:=s+a[i,j];
      End;
     writeln;
    End;
   Writeln('Сумма элементов главной диагонали массива=',s);
End.