Вывод массива улиткой по возрастанию 7 на 8

[Злая белка]

1 2 3 4 5 6 7
26 27 28 29 30 31 8
25 44 45 46 47 32 9
24 43 54 55 48 33 10
23 42 53 56 49 34 11
22 41 52 51 50 35 12
21 40 39 38 37 36 13
20 19 18 17 16 15 14

Помогите составить программу пожалуйста

[Sazary]

uses crt;
const m=7; n=8;
var
a : array[1..m,1..n] of integer;
i,j,maxi,mini,minj,maxj,kk : integer;

begin
clrscr;
minj := 1;
maxj := n;
kk := 1;
mini := 1;
maxi := m;
repeat
 for j:=minj to maxj-1 do
  begin
   a[mini,j] := kk;
   inc(kk);
  end;
  inc(j);
 for i:= mini to maxi-1 do
  begin
   a[i,maxj] := kk;
   inc(kk);
  end;
  inc(i);
 for j:= maxj downto minj+1 do
  begin
   a[maxi,j] := kk;
   inc(kk);
  end;
 for i:= maxi downto mini+1 do
  begin
   a[i,minj] := kk;
   inc(kk);
  end;
 inc(mini);
 inc(minj);
 dec(maxi);
 dec(maxj);
until kk>=m*n;

for i:=1 to m do
 begin
 for j:=1 to n do
  write(a[i,j]:3);
 writeln;
 end;


readln;
end.

[_Dmitry]

type
  TMatrix = array[1..n,1..m] of integer;

{заполнение матрицы по спирали
n - количество строк, m - количество столбцов}
procedure SnailMatrix(const n,m: integer; var a: TMatrix);
var
  i,j,k,z: integer;
begin
  i:=1; j:=1; k:=0;
  if m = 1 then k:=1;
  for z:=1 to n*m do
    begin
      a[i,j]:=z;
      case k mod 4 of
      0: begin
           j:=j+1;
           if j = (m-i+1) then k:=k+1;
         end;
      1: begin
           i:=i+1;
           if (n-i) = (m-j) then k:=k+1;
         end;
      2: begin
           j:=j-1;
           if (n-i+1) = j then k:=k+1;
         end;
      3: begin
           i:=i-1;
           if (i-1) = j then k:=k+1;
         end;
      end;
    end;
end;

------------------------
Ха-ха, одновременно ответили

[Sazary]

_Dmitry Интересно у вас сделано )

[Злая белка]

Sazary спасибо большое ваша прога работает норм, а вот _Dmitry ваша прога не работает выдает ошибку неизвестный идентификатор n но все равно спасибо)))))

[Google[Bot]]

Сообщение от Злая белка

а вот _Dmitry ваша прога не работает выдает ошибку неизвестный идентификатор n но все равно спасибо)))))

Точно такая же будет и с m, думаю предпологалось, что сами обьявите

[Sazary]

Злая белка
_Dmitry привел код процедуры, а не всей программы. m и n (да и сам массив) нужно сначала объявить, как и сказал Google[Bot].
Например, это может выглядеть так:

uses crt;
const n=7;m=8;
type
  TMatrix = array[1..n,1..m] of integer;

var a:Tmatrix;
i,j : integer;
{заполнение матрицы по спирали
n - количество строк, m - количество столбцов}
procedure SnailMatrix(const n,m: integer; var a: TMatrix);
var
  i,j,k,z: integer;
begin
  i:=1; j:=1; k:=0;
  if m = 1 then k:=1;
  for z:=1 to n*m do
    begin
      a[i,j]:=z;
      case k mod 4 of
      0: begin
           j:=j+1;
           if j = (m-i+1) then k:=k+1;
         end;
      1: begin
           i:=i+1;
           if (n-i) = (m-j) then k:=k+1;
         end;
      2: begin
           j:=j-1;
           if (n-i+1) = j then k:=k+1;
         end;
      3: begin
           i:=i-1;
           if (i-1) = j then k:=k+1;
         end;
      end;
    end;
end;

begin
clrscr;
SnailMatrix(n,m,a);
for i:=1 to n do
 begin
 for j:=1 to m do
  write(a[i,j]:3);
 writeln;
 end;
readln;
end.

[Злая белка]

Спасибо выручили))))