(с)Массивы.Сортировка по спирали.

[arah]

Прошу помочь.
Ввести динамический двухмерный массив и отсортировать его по спирали по возрастанию.
Пример:

4 5 6 7
3 14 15 8
2 13 16 9
1 12 11 10

Как создавать динамический массив я знаю.

[Tayfun]

program zmeika;
uses crt;
label 1;
var
a:array[1..5,1..5] of integer;
k,i,j,t,z:integer;
begin
clrscr;
t:=5;
z:=1;
1:
for j:=z to t do begin
k:=k+1;
a[z,j]:=k;
end;
k:=k-1;
for i:=z to t do begin
k:=k+1;
a[i,t]:=k;
end;

for i:=t-1 downto z do begin
k:=k+1;
a[t,i]:=k;
end;

for i:=t-1 downto z+1 do begin
k:=k+1;
a[i,z]:=k;
end;
if  k<25 then begin t:=t-1; z:=z+1; goto 1; end;
for i:=1 to 5 do begin
for j:=1 to 5 do
write(a[i,j],' ');
writeln;
end;
readkey;
end.

Примерный код, где надо добавите

[kommunist]

можно еще так

[arah]

Tayfun
Язык Си)
kommunist
По какой то причине не могу скачать фаил...Можеш выложить в на форум в текстовом виде?