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

Program matrica; Uses crt; Var a:array [0..8 ,  0..8] of integer;        sum1,sum2,i,j:integer; begin randomize; sum1:=0; sum2:=0 for i:=1 to 8 do begin Writeln; for j:=1 to 8 do begin a[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.