Паскаль в центре окна (640х400) нарисовать окружность радиусом 40 и закрасить её красным цветом

Program circle;
uses graphabc;
var   
        x:integer = 640;   
        y:integer = 400;   
        r:integer = 40;    
begin   

setwindowsize(x,y);   
setpencolor(clblack);   
setpenwidth(3);   
DrawCircle(x div 2,y div 2, r);   
setbrushcolor(clred);   
FillCircle(x div 2,y div 2, r)
end.