Реализовать программу, строящую фрактал с заданными границами расчета x0≤x≤xn. y0≤y≤yn

uses 
graphABC;
type TComplex = record
        x : Real;
                y : Real;
                end;
const   iter = 15;
        max  = 16;
      k=16;
var z, t : TComplex;
    n, i : integer;
    gd, gm  : integer;
    mx, my  : integer;
    x0,xn,y0,yn,x,y,ms:real;
    s:string;
begin
gd := detect;
initgraph(gd,gm,'d:\bp\bgi');
x0:=-1.0;
xn:=0.7;
y0:=-0.9;
yn:=1.1;
mx := round(getmaxX*abs(x0)/(xn-x0));{центр по Х}
my := round(getmaxY*yn/(yn-y0));{центр по Y}
ms:=(getmaxY-40)/(yn-y0);{масштаб}
y:=y0;
while y<=yn do
 begin
  x:=x0;
  while x<=xn do
   begin
    n := 0;
    z.x := x*ms*0.005;
    z.y := y*ms*0.005;
    while (sqr(z.x) + sqr(z.y) < max) and (n < iter) do
     begin
        t := z;
        z.x := cos(t.y)*(exp(t.x)+exp(-t.x))/2;
        z.y := sin(t.y)*(exp(t.x)-exp(-t.x))/2;
        inc(n);
     end;
      if n < k then
    putpixel(mx + round(ms*x),my - round(ms*y),16 - (n mod 16));
    x:=x+0.01;
   end;
  y:=y+0.01;
 end;
setcolor(15);
line(0,my,getmaxX,my);{оси}
line(mx,0,mx,getmaxY);
{центр}
outtextXY(mx+5,my+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,my-10,'X');
outtextXY(mx+5,10, 'Y');
for i:=1 to 11{trunc(x0*10)+1} do{максимальное количество засечек в одну сторону}
  begin
    line(mx-3,my-round(i*ms/10),mx+3,my-round(i*ms/10));{засечки на оси У}
    line(mx-3,my+round(i*ms/10),mx+3,my+round(i*ms/10));
    line(mx+round(i*ms/10),my-3,mx+round(i*ms/10),my+3); {засечки на оси Х}
    line(mx-round(i*ms/10),my-3,mx-round(i*ms/10),my+3);
    str(i/10:0:1,s);
    if i mod 2=0 then
     begin
      {подпись оси У}
      settextstyle(0,0,1);
      outtextXY(mx-30,my-round(i*ms/10),s);{соответственно засечкам}
      outtextXY(mx-35,my+round(i*ms/10),'-'+s);
      {подпись оси Х}
      settextstyle(0,1,1);
      outtextXY(mx+round(i*ms/10),my+10,s);
      outtextXY(mx-round(i*ms/10),my+10,'-'+s);
     end;
  end;
readln
end.