Найти сумму всех элементов, расположенных на главной диагонали матрицы - Turbo Pascal

Program mass 5*5; {название программы}
Var A : Array[1..5,1..5] of Integer;
    I,J,S:Integer;
Begin
 S:=0;
 For I:=1 To 5 Do
  For J := 1 To 5 Do
      A[I,J]:=Random(10); 
 For I:=1 To 5 Do
Begin
 For J := 1 To 5 Do
  Write(A[I,J]:3);
 WriteLn;
End;
 For I:=1 To 5 Do
  For J := 1 To 5 Do
   If I=J Then S:=S+A[I,J];
WriteLn('Сумма всех элементов расположенных на главной диагонали = ',S);
End.