В чём ошибка ? Дело в том ,что он не останавливается и я не понимаю почему .
uses graphABC,crt;
VAR
i,b,c,d: integer;
BEGIN
setWindowsize ( 1200,800);
b:= 100;
while b > 0 do
begin
setPencolor (clBlack);
i:= i+1;
line ( b-i*10, 0,b-i*10,20);
delay ( 100);
setPencolor (clWhite );
line ( b-i*10, 0,b-i*10,20);
end;

END.