Подскажите пожалуйста (таб. String Grid)

[Джек12]

Вот задача спирали.. отсчет идет с центра.. в центре 1.. т.е. спираль идет от 1 к допустим 50..
нужно сделать так,чтобы спираль шла наоборот.. допустим от 50 к 1.
что нужно поменять в задаче?..

procedure TForm1.Button1Click(Sender: TObject);
const
  n = 5;
  m = 5;
var
  mas: array[1..n, 1..m] of integer;
  value,
  i, j, k: integer;
begin
    i:=0; k:=0; value:=n*m;
    while i < n*m do
  begin
    inc(k);
    for j:=k to m-k+1 do
      begin
        inc(i);
        mas[k,j]:=value; dec(value)
      end;
      for j:=k+1 to n-k+1 do
      begin
        inc(i);
        mas[j,m-k+1]:=value; dec(value)
      end;
    {??????? ?? ??????????? "??????-??????"}
    for j:=m-k downto k do
      begin
        inc(i);
        mas[n-k+1,j]:=value; dec(value)
      end;
      for j:=n-k downto k+1 do
      begin
       inc(i);
       mas[j,k]:=value; dec(value)
     end
  end;
  for i:=1 to n do
  begin
  for j:=1 to m do
  StringGrid1.Cells[i,j]:=FloatTostr(mas[i,j]);
end;

end;

end.

[min@y™]

Как звучит оригинал задания?

[Stilet]

Как звучит оригинал задания?

Наверное примерно так: http://www.programmersforum.ru/showthread.php?t=165972

[Джек12]

да,да..нужно заполнить массив по спирали..начиная с центра.

[Stilet]

Пример по ссылке подходит?

[min@y™]

Сообщение от Джек12

да,да..нужно заполнить массив по спирали..начиная с центра.

А какую ячейку считать центром, если число строк и/или столбцов массива чётное?

Бонус тебе.