Дан массив a[1..5,1..5]. Найти сумму элементов его главной диагонали и произведение элементов побочной диагонали — Pascal(Паскаль)

uses crt;
const n=5;
var a:array[1..n,1..n] of real;
i,j:integer;
sum.pr:real;
begin
sum:=0;
pr:=1;
for i:=1 to n do
for j:=1 to n do
begin
clrscr;
writeln('Vvedite element matricbI');
write('A[',i,',',j,']=');
readln(a[i,j]);
end;
 
clrscr;
for i:=1 to n do
begin
 for j:=1 to n do
  begin
   write(a[i,j]:4:2,'  ');
  end;
  writeln;
end;
           sum:=0;
           for i:=1 to n do
           for j:=1 to n do
            begin
             if (i=j) then sum:=sum+a[i,j];
             if (i+j-1=n) then  pr:=pr*a[i,j];
            end;
           writeln('sum=',sum:4:4);
           writeln('pr= ',pr:6:2);
           
gotoxy(40,1);
for i:=1 to n do
begin
 for j:=1 to n do
  begin
   write(a[i,j]:4:2,'  ');
  end;
  gotoxy(40,wherey+1);
end;
 
readln;
end.