Нужна помощь по pascalABCЗадача нарисовать эллипс(вертикальный и горизонтальный) снутри

Нужна помощь по pascalABC
Задачка нарисовать эллипс(вертикальный и горизонтальный) снутри круга
Моя неувязка в том, что заместо эллипса рисуется линия. Вот код:
program ellipse;
uses GraphABC;
var xc,yc,x,y,r: integer;
begin
Brush.Style:= bsClear;
writeln('введи центр окружности');
readln(xc,yc);
writeln('введи радиус окружности');
readln(r);
x:= xc;
y:= yc;
circle(x,y,r);
ellipse(x,y+r,x,y-r);
ellipse(x-r,y,x+r,y);
end.
Помогите исправить ошибку