Вывести содержимое матрицы с первого элемента по спирали (по часовой стрелке)

    uses crt;
    const nmax=10;
    type Mas=array[1..nmax,1..nmax] of integer;
    var A:Mas;
        i,n,j,index:integer;
        north,east,west,south:integer;
begin
  randomize;
  repeat
    write('n= ');
    readln(n);
  until n in [1..nmax];
  
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
        A[i][j]:=random(100);
        write(A[i][j]:2,' ');
    end;
    writeln;
  end;
  
  j:=1;
  i:=1;
  north:=2;
  east:=n;
  south:=n;
  west:=1;
  writeln;
 
  repeat
  
  repeat
    write(A[i][j],' ');
    inc(j);
  until ((j>east) and (i<>n));
  dec(east);
  inc(i);
  dec(j);
  repeat
    write(A[i][j],' ');
    inc(i);
  until (i>south);
  dec(j);
  dec(i);
  dec(south);
  repeat
    write(A[i][j],' ');
    dec(j);
  until (west>j);
  inc(j);
  inc(west);
  dec(i);
  repeat
    write(A[i][j],' ');
    dec(i);
  until (north>i);
  inc(north);
  inc(i);
  inc(j);
 
  until ((west=east) or (north=south));
  
  Readln;
end.