Напишите программу в паскале на нахождение суммы главных диагоналей для квадратной матрицы. Помогите, пожалуйста 

Program matrica;Uses crt;Var a:array [0..8 ,  0..8] of integer;       sum1,sum2,i,j:integer;beginrandomize;sum1:=0;sum2:=0for i:=1 to 8 dobeginWriteln;for j:=1 to 8 dobegina[i,,j]:=random(10);if i=j then sum1:=sum1+a[i,j];if i+j=9 then sum2:=sum2+a[i,j];Write(a[i,j], '    ');end;end;writeln('Сумма чисел первой диагонали -',sum1,'  'Сумма чисел второй диагонали' ,sum2,');end.