Программы для построения множеств

[LockeD132]

Помогите с программами на паскале - для рисования множества Жюлиа и Мандельброта, компилируетса, но на экран ничего не выводит, подскажите что не так?
Первая

Program mandel;
Uses Crt,Graph; 
Var   a,b: integer;
   x,y,xy: integer;
   x2,y2: integer;   
r: real; 
  k: integer; 
  ch : char;
   GraphDriver,GraphMode : integer;
   Path : string;
 Begin
   clrscr;
   GraphDriver := EGA;
   GraphMode := EGALo;
   Write('Vvedite kolichestvo iteraciy ');
   Readln(k); 
  r:=0;
   x:=0; y:=0;
   InitGraph(GraphDriver,GraphMode,Path);
   While (k>0) and (r<4) do     begin
       x2:=x*x;
       y2:=y*y;
       xy:=x*y;
       x:=x2-y2+a;
       y:=2*xy+b;
       r:=x2+y2;
       dec(k);
       PutPixel(x,y,(k div 16));
      end;
    ch:= Readkey;
 End.

Вторая

Program second;
 Uses Crt,Graph;
 Var   i: integer;
   x,y,temp: integer;
   a,b: integer; 
  iter: integer;
   ch: char;
   GraphDriver,GraphMode : integer;
   Path : string;
 Begin
   clrscr;
   GraphDriver := EGA;
   GraphMode := EGALo;
   Write('Vvedite kolichestvo iteraciy ');
   Readln(iter);
   i:=0;
   x:=0;
   y:=0;
   InitGraph(GraphDriver,GraphMode,Path);
   Repeat
     temp:=sqr(x)-sqr(y)+a;
     y:=2*x*y+b;
     x:=temp;
     Inc(i);
     PutPixel(x,y,(i div (iter div 256)));
   Until (4<=sqr(x)+sqr(y)) or (i>=iter);
   ch:=readkey;
 End.