Поиск элемента через сумму (Pascal)

[Relrin]

Условие задачи:
Дан массив A размерности n*m . Получить одномерный массив B, элементы которого получены путем суммирования элементов исходного массива , находящихся по периметрам. (Например, для массива размерности 3х3 можно выделить два периметра элементов: первый - x11,x12,x13,x23,x33,x32,x31,x21 ; второй - x22).

Помогите доделать задачку!!!
Пока дошел до, того что, ищет такие элементы для одномерного массива размерности n*n... Как под мое условие сделать(n*m)?

k:=n div 2; 
for i:=1 to k do begin 
sum:=0; 
{строки} 
for j:=i to n-i+1 do 
sum:=sum+x[i,j]+x[n-i+1,j]; 
{столбцы} 
for j:=i+1 to n-i do 
sum:=sum+x[j,i]+x[j,n-i+1]; 
writeln(sum); {вывод суммы} 
end; 
if n mod 2=1 then 
writeln(x[k+1,k+1]);

[Stilet]

 for j:=1 to n do begin
   a[1]:=a[1]+x[1,j]; 
   a[2]:=a[2]+x[n,j]; 
 end;
 for j:=1 to m do begin
   a[3]:=a[3]+x[j,1]; 
   a[4]:=a[4]+x[j,m]; 
 end;

Где a[] - тот самый массив сумм.

[Relrin]

Нет, это не совсем правильно... Вот в виде изображения покажу, как подсчитывается каждый элемент для нового массива (внизу, в аттаче)