Powzoruj się na tym:
program kolo;
uses Graph, Crt;
var
tryb, karta : Integer;
begin
karta:=0;
tryb:=0;
InitGraph(tryb, karta, 'C:tpBgi')
SetColor(14);
Circle(250, 250, 100);
repeat until keypressed;
CloseGraph;
end.
Tu masz link jak byś chciał coś więcej poczytać...