Присвоить элементам двумерного массива их порядковые номера

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

type
  TSpirMatrix = Array of Array of integer;
 
var
  A: TSpirMatrix;
  b, c, i, j, k, f, n, m, p, u: integer;
  
begin
  
  write('Ââåäèòå ðàçìåðíîñòü ìàòðèöû ÷åðåç ïðîáåë - ');
   
  
  readln(n, m);   // Ââîäèì ðàçìåðíîñòü ìàòðèöû, n-ñòðîêà, m-ñòîëáåö.
  writeln;
  writeln('YOUR MATRIX  ',  N, 'x', M, ':');
  SetLength(A, n+1, m+1);   // Çàäàåì äëèíó ìàññèâà, â ñîîòâåòñòâèè ñ äëèíîé ñòðîê è ñòîëáöîâ, íî óâåëè÷èë íà åäèíèöó, òàê êàê ìàññèâ íà÷èíàåòñÿ ñ íóëÿ, à â äàííîì ñëó÷àå ýòî íåóäîáíî.
 
  b:=1;   // Íà÷àëüíàÿ ñòðîêà.
  c:=1;   // Íà÷àëüíûé ñòîëáåö.
  p:=n*m;   // Îáùåå êîëè÷åñòâî ýëåìåíòîâ â ìàòðèöå, èëè ïîñëåäíåå ÷èñëî â ìàòðèöå.
  k:=0;   // Ïîðÿäêîâîå ÷èñëî â ñïèðàëüíîé ìàòðèöå.
  while k<>p do   //  öèêëå çàïîëíÿåòñÿ âíåøíèé âèòîê, çàòåì óäàëÿåòñÿ. Öèêë çàâåðøàåòñÿ, êîãäà ýëåìåíò ìàòðèöû çàïîëíåí ïîñëåäíèì ïîðÿäêîâûì ÷èñëîì.
    begin
      for i:=b to n do   // Öèêë ïî ñòðîêàì.
        for j:=c to m do   // Öèêë ïî ñòîëáöàì.
        begin
          if i=b then   // Åñëè ýòî íà÷àëüíàÿ ñòðîêà, òî...
            begin
              A[i,j]:=k+1;   // Êàæäûé ýëåìåíò ñòðîêè çàïîëíÿåòñÿ ñëåäóþùèì ÷èñëîì è
              k:=A[i,j]      // ýòî ÷èñëî çàïîìèíàåòñÿ â ïåðåìåííîé k.
            end
          else   // Åñëè íå íà÷àëüíàÿ ñòðîêà, òî
            begin
              if i<>n then   // Åñëè íå óñëîâíî ïîñëåäíÿÿ ñòðîêà(ãäå-òî ìåæäó íà÷àëüíîé è óñëîâíî ïîñëåäíåé), òî...
                begin
                  if j=m then        // Åñëè ïîñëåäíèé ýëåìåíò ñòðîêè(ïðàâàÿ ñòîðîíà âèòêà), òî
                    begin
                      A[i,m]:=k+1;   // ýòè ýëåìåíòû, ïðàâîé ñòîðîíû âèòêà, çàïîëíÿþòñÿ ñëåäóþùèì ÷èñëîì è
                      k:=A[i,m];     // îíî çàïîìèíàåòñÿ â ïåðåìåííîé k.
                    end;
                end
              else   // Åñëè óñëîâíî ïîñëåäíÿÿ ñòðîêà, òî..
                begin
                  for f:=m downto c do   // Ïåðåáèðàþòñÿ ýëåìåíòû óñëîâíî ïîñëåäíåé ñòðîêè ñïðàâà-íàëåâî
                    begin
                      A[i,f]:=k+1 ;      // ýòè ýëåìåíòû ïîñëåäîâàòåëüíî çàïîëíÿþòñÿ ñëåäóþùèì ÷èñëîì, çàòåì ïðèñâîåííîå ÷èñëî
                      k:=A[i,f];         // çàïîìèíàåòñÿ â ïåðåìåííîé k.
                    end;
                  break   // Êàê òîëüêî ïîñëåäíÿÿ ñòðîêà çàïîëíåíà, ïðåæäåâðåìåííî çàâåðøàåì öèêë, ÷òîáû áîëüøå íå ïåðåáèðàëèñü ýëåìåíòû ñòðîêè.
                end
            end;
        end;
 
      // ÇÀÏÎËÍßÅÌ ËÅÂÓÞ ×ÀÑÒÜ ÂÈÒÊÀ, ÌÅÆÄÓ ÍÀ×ÀËÜÍÎÉ È ÓÑËÎÂÍÎ ÏÎÑËÅÄÍÅÉ ÑÒÐÎÊÎÉ.
      if c<>m then   // Åñëè ðàññìàòðèâàåìàÿ ìàòðèöà ñîñòîèò íå èç îäíîãî ñòîëáöà, òî ðåàëèçóåì öèêë..
      for i:=n-1 downto b+1 do   // Ïåðåáèðàþòñÿ ýëåìåíòû ëåâîé ñòîðîíû âèòêà ìåæäó ïåðâîé è óñëîâíî ïîñëåäíåé ñòðîêîé ÑÍÈÇÓ-ÂÂÅÐÕ,
        begin
          A[i,c]:=k+1;           // ýòè ýëåìåíòû ïîñëåäîâàòåëüíî çàïîëíÿþòñÿ ñëåäóþùèì ÷èñëîì, çàòåì ïðèñâîåííîå ÷èñëî
          k:=A[i,c]              // çàïîìèíàåòñÿ â ïåðåìåííîé k.
        end;
 
   // ÓÑËÎÂÍÎ óäàëÿåì çàïîëíåííûé âèòîê.
      b:=b+1;
      c:=c+1;
      m:=m-1;
      n:=n-1;
    end;
 
  // ÌÀÒÐÈÖÀ ÇÀÏÎËÍÅÍÀ! ÎÔÎÐÌËßÅÌ È ÂÛÂÎÄÈÌ ÍÀ ÝÊÐÀÍ.
  write(' ');   // Îòñòóïàåì îò êðàÿ.
  for i:=1 to (Length(A[0])-1)*4+2 do   // Ïå÷àòàåì íèæíèå
    write('_');                         // ÷åðòî÷êè íàä ìàòðèöåé.
 
    writeln;                                  // Îòñòóïàåì âíèç è
    writeln('|', '|':(Length(A[0])-1)*4+3);   // ïî êðàÿì ñòàâèì ïàëî÷êè.
 
  for i:=1 to Length(A)-1 do   // Öèêë ïî ñòðîêå.
  begin
    write('|');   // Ñëåâà îò ñòðîêè ñòàâèì ïàëêó.
    for j:=1 to Length(A[0])-1 do   // Öèêë ïî ñòîëáöàì.
      write(A[i,j]:4);   // Âûâîäèì ýëåìåíò ìàòðèöû è
    writeln('  |');      // ñòàâèì ïàëêó, ïåðåâåäÿ êóðñîð íà ñëåä. ñòðîêó.
  end;
  //Ìàòðèöà âûâåäåíà, äåëàåì íèç ðàìêè.
  write('|');                            // Âíà÷àëå ïàëêà.
  for i:=1 to (Length(A[0])-1)*4+2 do    // Çàòåì íèæíèå
    write('_');                          //     ÷åðòî÷êè.
 
  writeln('|');                          // è çàâåðøàåì ïàëêîé.
  writeln;
  repeat
    write('Ââåäèòå "1" - äëÿ ïîâòîðà èëè "0" - äëÿ çàâåðøåíèÿ: ');   readln(U);
    if (u<(-1)) or (u>1) then
      write('ÍÅÂÅÐÍÛÉ ÂÂÎÄ!!! ')
  until (u>(-1)) and (u<2);
  writeln;
  until U=0;
 
end.

while k<>n*m do

   // УСЛОВНО удаляем заполненный виток.
      b:=b+1;
      c:=c+1;
      m:=m-1;
      n:=n-1;