While . Do. Чередование квадратов в окне

Program Square;
Uses GraphABC;
Var
   Sz, {размер стороны квадрата в пикселях}
   K, {количество выведенных в окно квадратов}
   Kol, {количество квадратов, вводится с клавиатуры}
   WW, {ширина графического окна}
   WH,  {высота графического окна}
   X, Y {координаты верхнего левого угла квадрата}
   : Integer;
Begin
   CenterWindow;
   WW := WindowWidth;
   WH := WindowHeight;
   Writeln('Введите количество квадратов:');
   Readln(Kol);
   While (Kol < 2) Or (WW mod Kol <> 0) Do
      Begin
         Writeln('Разместить невозможно!');
         Writeln('Введите количество квадратов:');
         Readln(Kol);
      End;
   ClearWindow;
   Sz := WW div Kol;
   K := 0;
   SetBrushColor(clBlue);
   X := 0;
   Y := (WH - Sz) div 2;
   While K < Kol Do
      Begin
         Rectangle(X, Y, X+Sz, Y+Sz);
         K := K + 1;
         X := X + Sz;
      End;
End.

uses GraphAbc;
var
  n,x,y,a:integer;
begin
 repeat
  n:=ReadlnInteger('n=');
  a:=WindowHeight div n;
  if a=0 then writeln('Разместить невозможно!');
 until a>0; 
 clearwindow;
 for i:integer:=1 to n do begin
   if odd(i) then SetBrushColor(clYellow) else SetBrushColor(clBlue);
   FillRect(x,y,x+a,y+a);
   FillRect(WindowHeight-x,y,WindowHeight-x-a,y+a);
   x:=x+a;
   y:=y+a;
 end; 
end.