Реализовать программу, строящую фрактал с заданными границами расчета 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.

uses
graphABC;
type TComplex = record
        x : Real;
                y : Real;
                end;
const   iter = 15;
        max  = 16;
        k=16;
//16 цветов
cv:array[1..k] of integer=(clBlack,clBlue,clGreen,clTeal,clMaroon,clPurple,clBrown,clLightGray,
                            clGray,clSkyBlue,clLime,clAqua,clRed,
                            clFuchsia,clYellow,clWhite);
var z, t : TComplex;
    n, i : integer;
    mx, my  : integer;
    x0,xn,y0,yn,x,y,ms:real;
    s:string;
begin
x0:=-1.0;
xn:=0.7;
y0:=-0.9;
yn:=1.1;
mx := round(windowwidth*abs(x0)/(xn-x0));{центр по Х}
my := round(windowheight*yn/(yn-y0));{центр по Y}
ms:=(windowheight-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
    setpixel(mx + round(ms*x),my - round(ms*y),cv[k - (n mod k)]);
    x:=x+0.001;
   end;
  y:=y+0.01;
 end;
setpencolor(clBlack);
line(0,my,windowwidth,my);{оси}
line(mx,0,mx,windowheight);
{центр}
textout(mx+5,my+10,'0');
{подписи концов осей}
textout(windowwidth-10,my-10,'X');
textout(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
      {подпись оси У}
      textout(mx-30,my-round(i*ms/10),s);{соответственно засечкам}
      textout(mx-35,my+round(i*ms/10),'-'+s);
      {подпись оси Х}
      textout(mx+round(i*ms/10),my+10,s);
      textout(mx-round(i*ms/10),my+10,'-'+s);
     end;
  end;
end.

cv:array[1..k] of Color;

uses GraphABC;
type TComplex = record
     X : Real;
     Y : Real;
     end;
const
iter = 50;
max  = 16;
x0=-1.0;
xn=0.7;
y0=-0.9;
yn=0.8;
//цвета если не нравятся, подберите сами
cv:array[1..16] of Color=(clBlack,clBlue,clGreen,clTeal,clMaroon,clPurple,clBrown,clLightGray,
                            clGray,clSkyBlue,clLime,clCyan,clRed,
                            clFuchsia,clYellow,clWhite);
var z, t, c : TComplex;
    n       : Integer;
    msx,msy : Real;
    x, y    :Real;
    xc, yc  : Integer;
begin
Randomize;
xc:=windowwidth div 2;
yc:=windowheight div 2;
msx:= xc/xn;
msy:= yc/yn;
y:=y0;
while y<=yn do
 begin
  x:=x0;
  while x<=xn do
   begin
    n := 0;
    z.x := x*msx * 0.005;
    z.y := y*msy * 0.005;
    c.x := 0.11;
    c.y := -0.66;
    while (sqr(z.x) + sqr(z.y) < max) and (n < iter) do
     begin
      t := z;
      z.x := sqr(t.x) - sqr(t.y) + c.x;
      z.y := 2*t.x*t.y + c.y;
      Inc(n);
     end;
   if n < iter then SetPixel(xc+round(x*msx),yc+round(y*msy),cv[16 - (n mod 16)]);
   x:=x+0.002;
  end;
 y:=y+0.002;
end;
end.

uses GraphABC;
type TComplex = record
     X : Real;
     Y : Real;
     end;
const
iter = 50;
max  = 16;
x0=-1.0;
xn=0.7;
y0=-0.9;
yn=0.8;
//цвета если не нравятся, подберите сами
cv:array[1..16] of Color=(clBlack,clBlue,clGreen,clTeal,clMaroon,clPurple,clBrown,clLightGray,
                            clGray,clSkyBlue,clLime,clCyan,clRed,
                            clFuchsia,clYellow,clWhite);
var z, t, c : TComplex;
    n       : Integer;
    msx,msy : Real;
    x, y    :Real;
    xc, yc  : Integer;
begin
Window.Maximize;
Randomize;
xc:=windowwidth div 2;
yc:=windowheight div 2;
msx:= xc/xn;
msy:= yc/yn;
y:=y0;
while y<=yn do
 begin
  x:=x0;
  while x<=xn do
   begin
    n := 0;
    z.x := x*msx * 0.005;
    z.y := y*msy * 0.005;
    c.x := 0.11;
    c.y := -0.66;
    while (sqr(z.x) + sqr(z.y) < max) and (n < iter) do
     begin
      t := z;
      z.x := sqr(t.x) - sqr(t.y) + c.x;
      z.y := 2*t.x*t.y + c.y;
      Inc(n);
     end;
   if n < iter then SetPixel(xc+round(x*msx),yc+round(y*msy),cv[16 - (n mod 16)]);
   x:=x+0.0005;
  end;
 y:=y+0.0005;
end;
end.