Двухмерный массив

[Igrik128]

Помогите пожалуйста с задачей
Нужен Код Delphi

Задача:

Дана квадратная матрица A порядка M. Начиная с элемента A1,1, вывести ее элементы следующим образом («уголками»): все элементы первой строки; элементы последнего столбца, кроме первого (уже выведенного) элемента; оставшиеся элементы второй строки; оставшиеся элементы предпоследнего столбца и т. д.; последним выводится элемент AM,1.

[Mad_Cat]

const N=5;
var a:array[1..N,1..N] of integer;
i,j,k,m:integer ;
begin
Randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(n*n)-n;
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do  begin
for J:=1 to n-i+1 do
Write(a[i,j]:4);
k:=n-i+1;
for m:=i+1 to n do
write(a[m,k]:4);
end;
writeln;
end.

4 1 5 10 13
12 4 16 1 11
1 19 4 10 11
16 19 3 4 10
12 15 7 7 3
4 1 5 10 13 11 11 10 3 12 4 16 1 10 4 7 1 19 4 3 7 16 19 15 12