Найти сумму элементов по периметру матрицы и под побочной диагональю - Pascal ABC

const n=5;
var a:array[1..n,1..n] of integer;
    i,j,sp,sd:integer;
begin
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10);
    write(a[i,j]:3)
   end;
  writeln
 end;
sp:=0;
for i:=1 to n-1 do
sp:=sp+a[1,i]+a[i,n]+a[i+1,1]+a[n,i+1];
writeln('Сумма элементов периметра=',sp);
sd:=0;
for i:=2 to n do
for j:=n-i+2 to n do
sd:=sd+a[i,j];
writeln('Сумма элементов ниже побочной диагонали=',sd);
end.