var X,Xbe,Y:integer;
dim,dre,Yb,Ye,Xb,Xe:real;
var Z,Z1,C:record
Re,Im:real;
end;
Krok:integer;
PROCEDURE Mandel;
var p,e:^byte;
begin
dre:=(Xe-Xb)/XMax;
dim:=(Ye-Yb)/YMax;
p:=ptr($0a000,0);
C.Im:=Yb;
while C.Im>=Ye do
begin
e:=p;
C.Re:=Xb;
while C.Re<=Xe do
begin
Z.Re:=0;
Z.Im:=0;
Krok:=0;
repeat
Z1.Re:=Z.Re*Z.Re-Z.Im*Z.Im +C.Re; {Z[i+1]:=Z[i]*Z[i] + C}
Z.Im:=2*Z.Re*Z.Im +C.Im;
Z.Re:=Z1.Re;
inc(krok);
until (krok>50) or (Abs(Z.Re*Z.Re+Z.Im*Z.Im)>4);
p^:=15+krok mod 100; inc(p);
C.Re:=C.Re+dre;
end;
C.Im:=C.Im+dim;
p:=e; inc(p,320);
end;
end;