Дана матрица «А» с n-строк и n-столбцов.Нужно сложить все ее рамки и вывести в вектор Bn суммы этих рамок — Pascal(Паскаль)

1 1 1 1 1
1 2 2 2 1
1 2 5 2 1 <--Матрица "A" 5 на 5
1 2 2 2 1
1 1 1 1 1
Нужно сложить все рамки первая рамка состоит из единиц,вторая из двоек и т.д. Чем больше матрица тем больше рамок.
тогда:
Bn="16" "16" "5" и т.д. чем больше рамок тем больше значений у вектора B

var
a:array[1..100,1..100]of integer;
b:array[1..100]of integer;
t,i,j,k,l,n,sk,s,r:integer;
begin
randomize;
writeln('vvedite razmer n');
readln(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:= random(20);
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
for k:=(n+1)div 2 downto 1 do
begin
sk:=0;
l:=k;
r:=n-k+1;
for i:=l to r do
for j:=l to r do
sk:=sk+a[i,j];
inc(t);
b[t]:=sk-s;
s:=sk;
end;
writeln('vektor');
for i:=1 to t do
write(b[i]:5);
end.