Ai giúp mình giải bài ma trận xoắn ốc này với!

[vichy]

Viết chương trình in ra các số nguyên từ 1 đến bình phương N theo hình xoắn ốc với N được nhập vào từ bàn phím. Ví dụ, với N=5 ta có:
1 2 3 4 5
16 17 18 19 6
15 24 25 20 7
14 23 22 21 8
13 12 11 10 9

Mình tham gia thi tin học không chuyện thcs và có tham khảo những bài khác trên mạng nhưng trình độ không đủ, đọc không hiểu. Mong các bạn giúp mình, cảm ơn!

[tthandb]

uses crt;
var
n, w, hang, cot, chanhangtang, chanhanggiam, chancottang, chancotgiam, tang, giam: integer;
matran: array[0..12,0..12] of integer;
begin
clrscr;
readln(n);
hang:=0;
cot:=0;
chanhangtang:=n-1;
chancottang:=n-1;
chanhanggiam:=0;
chancotgiam:=0;
tang:=0;
for w:=0 to n*n-1 do
begin
matran[hang,cot]:= w + 1;
case tang of
0 : if (cot < chancottang) then inc(cot) else
begin
inc(tang);
inc(chanhanggiam);
inc(hang);
end;
1 : if (hang < chanhangtang) then inc(hang) else
begin
inc(tang);
dec(chancottang);
dec(cot);
end;
2 : if (cot > chancotgiam) then dec(cot) else
begin
inc(tang);
dec(chanhangtang);
dec(hang);
end;
3 : if (hang > chanhanggiam) then dec(hang) else
begin
tang:=0;
inc(chancotgiam);
inc(cot);
end;
end;
end;
for hang:=0 to n-1 do
begin
for cot:=0 to n-1 do write(matran[hang,cot],' ');
writeln;
end;
readln;
end.