Построить семейство кривых y=f(x) для указанных значений параметра λ и оси координат с указанием минимального и максимал

uses graphABC;
procedure x_y(l,u:real;var x,y:real);
begin
x:=18+l*cos(u);
y:=18*sin(u)/cos(u)+l*cos(u);
end;
procedure min_max(l:real;var xmn,xmx,ymn,ymx:real);
var u,x,y:real;
begin
u:=-pi/3;
while u<=pi/3 do
 begin
  x_y(l,u,x,y);
  if u=-pi/3 then
   begin
    xmn:=x;
    xmx:=x;
    ymn:=y;
    ymx:=y;
   end
  else
   begin
    if x<xmn then xmn:=x;
    if x>xmx then xmx:=x;
    if y<ymn then ymn:=y;
    if y>ymx then ymx:=y;
   end;
  u:=u+0.001;
 end;
end;
var xc,yc:integer;
    x,y,fi,max,m:real;
    a:array[1..12] of real;
    s1,s2,s3,s4:string;
begin
//найдем минимальные и максимальные значения по X, Y для 1,2 и 3 кривых
min_max(10,a[1],a[2],a[3],a[4]);
min_max(18,a[5],a[6],a[7],a[8]);
min_max(26,a[9],a[10],a[11],a[12]);
//найдем самое большое по модулю для масштаба
max:=abs(a[1]);
for var i:=2 to 12 do
if abs(a[i])>max then max:=abs(a[i]);
setwindowsize(600,600);
centerwindow;
xc:=50;
yc:=windowheight div 2-50;
m:=(yc-20)/max;
fi:=-pi/3;
while fi<=pi/3 do
 begin
  x:=18+10*cos(fi);
  y:=18*sin(fi)/cos(fi)+10*cos(fi);
  setpixel(xc+round(x*m),yc-round(y*m),clRed);
  x:=18+18*cos(fi);
  y:=18*sin(fi)/cos(fi)+18*cos(fi);
  setpixel(xc+round(x*m),yc-round(y*m),clBlue);
  x:=18+26*cos(fi);
  y:=18*sin(fi)/cos(fi)+26*cos(fi);
  setpixel(xc+round(x*m),yc-round(y*m),clGreen);
  fi:=fi+0.001;
 end;
 line(0,yc,2*yc,yc);
 line(xc,0,xc,2*yc);
 for var i:=1 to 9 do
  begin
   line(xc+round(i*m*5),yc-3,xc+round(i*m*5),yc+3);
   textout(xc+round(i*m*5)-5,yc+10,inttostr(i*5));
   line(xc-5,yc-round(i*m*5),xc+5,yc-round(i*m*5));
   line(xc-5,yc+round(i*m*5),xc+5,yc+round(i*m*5));
   textout(xc-25,yc-round(i*m*5)-5,inttostr(i*5));
   textout(xc-25,yc+round(i*m*5)-5,inttostr(-i*5));
  end;
 textout(xc+50,0,'Графики кривых представленных параметрическими уравнениями вида');
 textout(windowwidth div 2,20,'x=18+L*cos(fi)');
 textout(windowwidth div 2,40,'y=18*tg(fi)+L*cos(fi)');
 textout(windowwidth div 2,60,'-pi/3<=fi<=pi/3');
 setfontcolor(clRed);
 textout(windowwidth div 2,80,'L=10');
 setfontcolor(clBlue);
 textout(windowwidth div 2,100,'L=18');
 setfontcolor(clGreen);
 textout(windowwidth div 2,120,'L=26');
 setfontcolor(clBlack);
 textout(xc+100,yc+150,'L=10');
 str(a[1]:0:2,s1);
 str(a[2]:0:2,s2);
 str(a[3]:0:2,s3);
 str(a[4]:0:2,s4);
 textout(xc+50,yc+170,'xmn='+s1+' xmx='+s2+' ymn='+s3+' ymx='+s4);
 textout(xc+100,yc+200,'L=18');
 str(a[5]:0:2,s1);
 str(a[6]:0:2,s2);
 str(a[7]:0:2,s3);
 str(a[8]:0:2,s4);
 textout(xc+50,yc+220,'xmn='+s1+' xmx='+s2+' ymn='+s3+' ymx='+s4);
 textout(xc+100,yc+250,'L=26');
 str(a[9]:0:2,s1);
 str(a[10]:0:2,s2);
 str(a[11]:0:2,s3);
 str(a[12]:0:2,s4);
 textout(xc+50,yc+270,'xmn='+s1+' xmx='+s2+' ymn='+s3+' ymx='+s4);
end.