Задача с двумерным массивом, Элементы равный сумме по... Опции

[Relrin]

Дан массив A размерности n*m . Получить одномерный массив B, элементы которого получены путем суммирования элементов исходного массива , находящихся по периметрам.

В качестве примера, вот набросал, изображение такого рода:


Прогресс не очень далеко, а может и нет. Работает правда этот кусочек кода для массива 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]);

[Relrin]

Сейчас пытаюсь приделать условия к циклам. Отдельно считаем периметр если m>n и m<n... Нужна помощь

if m<n then d:=(n-1)div 2+1 else d:=(m-1)div 2+1;
  for i:=1 to d do begin
    sum:=0;
    if count<=i then count:=count+1;
    {строки}
    for j:=i to m-i+1 do
    begin
      sum:=sum+a[j,i];
      if (i<n-i+1) and (m<=n) then sum:=sum+a[j,n-i+1];
      if (i<m-i+1) and (m>n)  then sum:=sum+a[j,m-i+1];
    end;
    {столбцы}
    for j:=i+1 to n-i do
    begin
      sum:=sum+a[i,j];
      if (i<m-i+1) and (m<=n) then sum:=sum+a[m-i+1,j];
      if (i<n-i+1) and (m>n)  then sum:=sum+a[n-i+1,j];
    end;
    b[count]:=sum;
  end;