улитка паскаля

[alenenok]

помогите пожалуйста нарисовать оси координат:


Program ulitka;
uses crt,graph;
var grdriver,grmode,x,y,i,a,b:integer;t ,x1,y1:real;
begin
clrscr;
writeln('vvedite znacheniya a i b, pri etom a<b<2a');
readln(a,b);
if (a<b) and (b<2*a) then begin
grdriver:=detect;
initgraph(grdriver,grmode,'');
x:=getmaxx div 2;
y:=getmaxy div 2;
for i:=0 to 360 do begin
t:=i*pi/180;
x1:=x+a*cos(t)*cos(t)+b*cos(t);
y1:=y+a*cos(t)*sin(t)+b*sin(t);
setcolor(red);
setlinestyle(solidln,3,3);
if t=0 then
moveto(round(x1),round(y1))
else
lineto(round(x1),round(y1));

end;
delay(10000);
end
else writeln('nevernie dannie');readln; halt;
closegraph;
end.