Переделать код. Сплайны

uses graphABC;
Procedure Bezie(D1,D2,D3,D4:point);
var t:real;M:point;
  begin
  t:=0;
  SetPenColor(clBlack);
  while t<=1 do
  begin
  M.x:=400+trunc(D1.x*(1-t)*(1-t)*(1-t)+D2.x*t*(1-t)*(1-t)*3+D3.x*t*t*(1-t)*3+D4.x*t*t*t);
  M.y:=400+trunc(D1.y*(1-t)*(1-t)*(1-t)+D2.y*t*(1-t)*(1-t)*3+D3.y*t*t*(1-t)*3+D4.y*t*t*t);
  circle(M.x,M.y,1);
  t:=t+0.001;
  end;
  end;
  Procedure Catmull(D1,D2,D3,D4:point);
var t:real;M:point;
  begin
  t:=0;
  SetPenColor(clBlack);
  while t<=1 do
  begin
  M.x:=400+trunc(0.5*(D1.x*(1-t)*(1-t)*(-t)+D2.x*(2-5*t*t+3*t*t*t)+D3.x*t*(1+4*t-3*t*t)-D4.x*t*t*(1-t)));
  M.y:=400+trunc(0.5*(D1.y*(1-t)*(1-t)*(-t)+D2.y*(2-5*t*t+3*t*t*t)+D3.y*t*(1+4*t-3*t*t)-D4.y*t*t*(1-t)));
  circle(M.x,M.y,1);
  t:=t+0.001;
  end;
  end;
  Procedure Be(D1,D2,D3,D4:point);
var t,a0,a1,a2,a3,b0,b1,b2,b3:real;M:point;
  begin
  t:=0;
  SetPenColor(clBlack);
  while t<=1 do
  begin
  a0:= (D1.x + 4*D2.x+ D3.x)/6; b0:= (D1.y + 4*D2.y+ D3.y)/6;
  a1:= (-D1.x + D3.x)/2; b1:= (-D1.y + D3.y)/2;
  a2:= (D1.x - 2*D2.x + D3.x)/2; b2:= (D1.y - 2*D2.y + D3.y)/2;
  a3:= (-D1.x + 3*D2.x - 3*D3.x + D4.x)/6 ;b3:= (-D1.y + 3*D2.y - 3*D3.y + D4.y)/6;
  M.x:=400+trunc(((a3*t + a2)*t + a1)*t + a0);
  M.y:=400+trunc(((b3*t + b2)*t + b1)*t + b0);
  circle(M.x,M.y,1);
  t:=t+0.001;
  end;
  end;
var 
    P : array [0..19] of point;
    i,a,b,n: integer;
    x0,y0: integer;
begin
    a:=800;b:=800;
    setwindowsize (a,b);
    SetPenColor(clBlack);
    x0:=a div 2;y0:=b div 2;
    line(x0,0,x0,b);
    line(x0,0,x0-15,0+15);
    line(x0,0,x0+15,0+15);
    line(0,y0,a,y0);
    line(a,y0,a-15,y0-15);
    line(a,y0,a-15,y0+15);
    SetPenColor(clRed);
    SetPenWidth(3);
    SetFontSize(16);
    SetFontColor(clRed);
    SetBrushColor(clTransparent);
      P[0].x:=-400;P[0].y:=-150;P[1].x:=-350;P[1].y:=-250;P[2].x:=-250;P[2].y:=-250;
      P[3].x:=-200;P[3].y:=-150;P[4].x:=-150;P[4].y:=-50;P[5].x:=-50;P[5].y:=-50;
      P[6].x:=0;P[6].y:=-350;P[7].x:=380;P[7].y:=-350;P[8].x:=380;P[8].y:=0;
      P[9].x:=0;P[9].y:=0;P[10].x:=380;P[10].y:=150;P[11].x:=0;P[11].y:=250;
      P[12].x:=380;P[12].y:=350;P[13].x:=0;P[13].y:=350;P[14].x:=-400;P[14].y:=350;
      P[15].x:=-400;P[15].y:=50;P[16].x:=-50;P[16].y:=50;P[17].x:=-50;P[17].y:=275;
      P[18].x:=-200;P[18].y:=275;P[19].x:=-200;P[19].y:=200;
    for i:=0 to 19 do
    begin
      circle(P[i].x+x0,P[i].y+y0,1);
      textout(P[i].x+x0+5,P[i].y+y0+5,i);
    end;
    SetPenColor(clBlue);
    n:=0;
    for i:=1 to 19 do
    begin
    line(P[n].x+x0,P[n].y+y0,P[n+1].x+x0,P[n+1].y+y0);
    n:=n+1;
    end;
    n:=0;
    while n<20-3 do
    begin
    Catmull(P[n],P[n+1],P[n+2],P[n+3]);
    n:=n+1;
    end;
end.