Egy négyzet kirajzolása fraktáltenisz algoritmussal

a := 400;
x := 0; y := 0; j := 0;
repeat
  inc(j);
  v := random(4);
  case v of
	0: begin
	     x := x / 2;
	     y := y / 2
	   end;
	1: begin
	     x := x / 2 + a / 2;
	     y := y / 2
	   end;
	2: begin
	     x := x / 2;
	     y := y / 2 + a / 2
	   end;
	3: begin
	     x := x / 2 + a / 2;
	     y := y / 2 + a / 2
	   end;
     end;
  if j > 10 then
    begin
      putpixel(round(x + 100),round(440 - y),green);
      j := 11
    end
until keypressed;