Помогите с проблемой в Паскале - ожидает идентификатор!

[Jenee]

uses crt,graphABC;
var
x,y:integer;
while (x<640) and (y<480) do
begin
clrscr;
setpencolor(clyellow);
circle(x,y,50);
floodfill(x,y,clbrown);
x:=x+7;
y:=y+5;
delay(100);
end; end.

Мне необходимо нарисовать ряд окружностей по диагонали, но программа ожидает идентификатор. Помогите разобраться!

[p51x]

После объявлении переменных пропущен begin. Могли хотя бы посчитать кол-во бегин/эндов.