Окна по спирали

uses crt;
{Экран 80х25,по высоте возьмем 24, 
размер символов стандартный 8х12, примем квадраты 4х3, 
получится 8 по высоте и 20 по горизонтали}
const n=8;
      m=20;
var d,i,j:integer;
    x,y,num,addx,addy,dir:integer;
begin
clrscr;
{вход в построение слева от матрицы в первой строке}
x:=0;
y:=1;
num:=1;{номер ячейки по порядку}
addx:=m;{длина пути по горизонтали в одну сторону}
addy:=n;{по вертикали}
dir:=1;{знак направления, вправо-вниз +1, лево-вверх -1}
while num<=n*m do{пока не прошли все ячейки-окна}
begin
  j:=0;{счетчик пути по горизонтали}
  while j<>addx do{пока не конец}
    begin
    x:=x+dir;{наращивем или убавляем координату Х}
    window((x-1)*4+1,(y-1)*3+1,x*4,y*3);{определяем окно с заданными координатами и размером}
    textbackground(num);{цвет фона по порядку 1..8, 1..8,....}
    clrscr;
    num:=num+1;{следующее окно}
    j:=j+1;
    end;
  i:=0;{все тоже по вертикали}
  addx:=addx-1;
  addy:=addy-1;
  while i<>addy do
    begin
    y:=y+dir;
    window((x-1)*4+1,(y-1)*3+1,x*4,y*3);
    textbackground(num);
    clrscr;
    num:=num+1;
    i:=i+1;
    end;
  dir:=dir*(-1);{прошли 2 направления, меняем знак на противоположный}
end;
window(1,1,80,25);{уберем курсор в правый нижний угол экрана}
gotoXY(80,25);
readln
end.