Помогите найти ошибку в программе паскальАВС

Question

В школе у меня вышла такая программа, но она не работает почему то ( скажите, где ошибка? 
 
program circle1_1; 
uses crt, graphabc; 
begin 
randomize; 
repeat 
//putpixel(random(640),random(480,clrandom); 
delay(10); 
until keypressed; 
var x:INTEGER; 
begin 
for x:=20 to 620 do 
begin 
setpencolor(clgreen); 
circle(x,480-x,50-2); 
DELAY(10); 
SETPENCOLOR(CLWHITE); 
circle(x,480-x,50); 
end; 
end.

Залина · Accepted Answer

Еще одну "end;" в конце пропустила. 
Вот так работет: 
 
program circle1_1; 
uses crt, graphabc; 
begin 
 randomize; 
 repeat 
 //putpixel(random(640),random(480,clrandom); 
 delay(10); 
 until keypressed; 
 
 var x:INTEGER; 
 
 begin 
 for x:=20 to 620 do 
 begin 
 setpencolor(clgreen); 
 circle(x,480-x,50-2); 
 DELAY(10); 
 SETPENCOLOR(CLWHITE); 
 circle(x,480-x,50); 
 end; 
 end; 
end.

Игорь Решетов · Answer

У меня все работает (учитывая поправку на end). 
Возможно, ты просто не понимаешь, как управлять твоей программой. 
Для упрощения сначала закомментируй от repeat по until