Графика. Исправить рекурсию треугольника

uses crt, graph;
const y=200;
var gd, gm, tmp:integer;
 
procedure z(x0, x, n:integer; var h:integer);
var h1:integer;
begin
 
  if(n=1) then  begin
    setcolor(8);
    line(x0, y, x+x0, y+x);
    line(x0+x, y+x, x0+2*x, y);
    line(x0, y, x+x0, y-x);
    line(x0+x, y-x, x0+2*x, y);
    setfillstyle(1, 9+(n mod 6));
    floodfill(x0+x,y, 8);
    setcolor(8);
    line(x0, y, x0+2*x, y);
    h:=x;
  end
  else begin
   z(x0, trunc(x/2), n-1, h1);
   z(x0+x, trunc(x/2), n-1, h1);
   z(x0+2*x, trunc(x/2), n-1, h1);
 
    setcolor(8);
    line(x0+h1, y+h1, x+x0+h1, y+x+h1);
    line(x0+x+h1, y+x+h1, x0+2*x+h1, y+h1);
    line(x0+h1, y+h1, 2*x+x0+h1, y+h1);
 
 
    line(x0+h1, y-h1, x+x0+h1, y-x-h1);
    line(x0+x+h1, y-x-h1, x0+2*x+h1, y-h1);
    line(x0+h1, y-h1, 2*x+x0+h1, y-h1);
 
    setfillstyle(1, 9+(n mod 6));
    floodfill(x0+x+h1,y+h1+round(x/2), 8);
    floodfill(x0+x+h1,y-h1-round(x/2), 8);
    h:=h1+x;
   end;
 
end;
 
begin
  initgraph(gd,gm,'');
  z(100,100,  4, tmp);
  readkey;
  closegraph;
end.

z(100,100,  4, tmp);

procedure Trg(x0,x,k:integer);
begin
line(x0, y, x+x0, y+k*x);
line(x+x0, y+k*x,x0+2*x,y);
line(x0, y,x0+2*x,y);
end;

 Trg(100,100,-1);
 Trg(100,100,1);