Заполнить матрицу по спирали.

uses crt;
var a:array[1..20,1..20]of integer;
    n,i,j,x,y,z,k,l,sm:integer;
{n-размер матрицы,i,j-счетчики циклов, x,y-текущие координаты ячейки,
z-значение(1,2,3..n*n),k-переключатель направления(+1,-1),l-длина хода до поворота, sm-сумма}
begin
clrscr;
write('n=');readln(n);
x:=0;{по горизонтали находимся слева от матрицы}
y:=n;{по вертикали-в последней строке}
z:=1;{первое число=1}
l:=n;{первая длина до поворота=n}
k:=1;{движение вправо=+1}
sm:=0;{сумма=0}
while (l<>0) do{пока длина пути не будет=0, т.е. пока не дойдем до центра}
begin
  i:=0;
  while (i<>l) do{пока счетчик ходов до поворота не ноль}
    begin
    x:=x+k;{переходим в ячейку по горизонтали +1}
    a[y,x]:=z;{запишем в ячейку текущее число}
    sm:=sm+a[y,x]; {считаем сумму}
    z:=z+1;{следующее по порядку число}
    i:=i+1;{считаем пройденную ячейку}
    end;
  i:=0;{обнуляем счетчик ходов}
  l:=l-1;{после поворота уменьшается длина пути до нового поворота}
  while (i<>l) do{пока не поворот}
    begin
    y:=y-k;{идем вверх по столбцу}
    a[y,x]:=z;{записываем число}
    sm:=sm+a[y,x]; {считаем сумму}
    z:=z+1;{следующее число}
    i:=i+1;{считаем ходы}
    end;
  k:=-k;{прошли раз по горизонтаи и раз по вертикали, меняем направление на противоположное
если первый раз прошли вправо и вверх, сейчас влево и вниз}
end;
for i:=1 to n do{вывод результата}
   begin
     for j:=1 to n do
     write(a[i,j]:4);
     writeln;
   end;
readln
end.