【求解】pascal二维数组 螺旋形

开一个指针负责指向数组的位置，若干个计数变量，一个用来给数组赋值，一个用来表示指针每条边移动的次数（再用一个计数，四次一循环减一），再设一个常量数组，再开一个计数变量负责循环向左、向下、向上、向右的操作，直到指针每条边移动次数为0停止.

不输入的最好方法就是：
begin
writeln("1 2 3 4");
writeln("12 13 14 5");
writeln("11 16 15 6");
writeln("10 9 8 7");
end;
没了
正常方法：
数组[0..n+1,0..n+1]
把边界所有都赋值成-1，或者你自己开判断也行
然后碰到边界/-1就转向。

为什么我初中才开始接触- -。LZ居然 4年级