Заполнить матрицу от левого верхнего угла по спирали: вниз-вправо-вверх-влево

uses crt;
var a:array[1..20,1..20]of integer;
    n,i,j:integer;
    x,y,num,add,dir:integer;
begin
clrscr;
write('n=');readln(n);
x:=1;//начало движения 1-й столбец, 0-я строка
y:=0;
num:=1;//номер=1
Add:=n;//начальная длина пути
dir:=1;//знак+
while (add<>0) do
begin
  i:=0;
  while (i<>add) do
    begin
    y:=y+dir;//идем вниз, потом вверх по столбцу
    a[y,x]:=num;
    num:=num+1;
    i:=i+1;
    end;
  i:=0;
  add:=add-1;
  while (i<>add) do
    begin
    x:=x+dir;//по строке сначала вправо, потом влево
    a[y,x]:=num;
    num:=num+1;
    i:=i+1;
    end;
  dir:=dir*(-1);//меняем знак
end;
for i:=1 to n do
   begin
     for j:=1 to n do
     write(a[i,j]:4);
     writeln;
   end;
readln
end.

const
     n=28;
var a:array[1..1000,1..1000]of integer;
    s,k,i,j:integer;
    dsr,x,y,num,ds,d:integer;
begin
x:=1;//начало движения 1-й столбец, 0-я строка
y:=0;
num:=23;//первый элемент массива
ds:=n;//начальная длина пути - начальная высота столбца
dsr:=n-2;// строка(кол-во элементов)
d:=1;//приращение по оси 0Y и знак "+/-" - отвечает за изменение направления заполнения
//=============== заполняем массив ======================
while (ds-1<>0) do
begin
// ============ заполняем текущий столбец ============
  i:=0;
  while (i<>ds) do
    begin
    y:=y+d;//идем вниз, потом вверх по столбцу
    a[y,x]:=num;
    num:=num+1;
    i:=i+1;
    end;
  i:=0;
  ds:=ds-1;
//========= заполняем текущую строку ===========================
  while (i<>dsr) do
    begin
    x:=x+d;//по строке сначала вправо, потом влево
    a[y,x]:=num;
    num:=num+1;
    i:=i+1;
    end;
    dsr:=dsr-1;
  d:=-d;//меняем знак
end;
//================= выводим на печать ==================
for i:=1 to n do
   begin
     for j:=1 to n-1 do
     write(a[i,j]:4);
     writeln;
   end;
 writeln;
//==============сумма по по внутреннему массиву ===========
      s:=0;
      for i:=5 to n do
          for j:=6 to n-1 do
                             s:=s+a[i,j];
      write('Полученная сумма: ',s);
end.

const
  Rows = 28;
  Cols = 27;
  numStart = 23;
  sumFromRow = 5;
  sumFromCol = 6;
  d = 4;
 
var
  a : array [0..Rows-1, 0..Cols-1] of Integer;
  Num, Row, Col, Invariant, Sum : Integer;
  
begin
  for Row := 0 to Rows-1 do
    for Col := 0 to Cols-1 do
      a[Row,Col] := 0;
      
  Num := numStart; Row := 0; Col := 0; a[Row,Col] := Num;
  Invariant := 0;
  while 1 + Num - numStart <> Rows * Cols do
    case Invariant of
      0 : if (Row+1 < Rows) and (a[Row+1,Col] = 0) then begin Inc(Num); Inc(Row); a[Row,Col] := Num; end else Inc(Invariant);
      1 : if (Col+1 < Cols) and (a[Row,Col+1] = 0) then begin Inc(Num); Inc(Col); a[Row,Col] := Num; end else Inc(Invariant);
      2 : if (Row > 0     ) and (a[Row-1,Col] = 0) then begin Inc(Num); Dec(Row); a[Row,Col] := Num; end else Inc(Invariant);
      3 : if (Col > 0     ) and (a[Row,Col-1] = 0) then begin Inc(Num); Dec(Col); a[Row,Col] := Num; end else Invariant := 0;
    else
      Inc(Num);
    end;
    
  for Row := 0 to Rows-1 do
    begin
      for Col := 0 to Cols-1 do Write(a[Row,Col]:d);
      WriteLn;
    end;
    
  Sum := 0;
  for Row := sumFromRow-1 to Rows-1 do
    for Col := sumFromCol-1 to Cols-1 do
      Inc(sum, a[Row,Col]);
  WriteLn(Sum);
end.