В pascal есть встроенные функции circle(x, y, r) и ellipse(x, y, 0, 360, s1, s2). Касательно второго - 0 и 360 - значения градусной меры, поэкспериментируйте - поймете, s1 - вертикальный радиус эллипса, s2 - горизонтальный. Или же можно поизучать уравнение окружности: x^2 + y^2 = r^2 и сделать через него.