Перевести программу из паскаля в маткад

Program Gisterez;
 Uses GraphABC,BmpSv;
 var x0,x,xa,xb,xc,xd,k1,k2:double;
     y,y1,y2,y10,y20, a,b,c,d,p,y00, con:double;
    k,xn,yn,dx,dy,l,nx,ny,kx,ky,ax,by:integer;
    tx,ty :byte;
    ch:char;
    i,j,j0:longint;
    s,s1,aa,bb,cc,dd:String;
begin
ax:=800; by:=500;
SetWindowSize(ax,by);
SetWindowCaption('Переключение с гистерезисом');
Font.Name := 'Times New Roman';
   Font.Style := fsBoldItalic;
    Font.Size := 10;
    Font.Color := clBlack;
  xn:=100;
  yn:=245;
  dx:=ax div 10;
  dy:=by div 10 ;
  tx:=2*TextWidth('M');
  ty:=TextHeight('M');
  
  {Data}
  k1:=50;k2:=41;
  x0:=60;y10:=k1*sqrt(x0);y20:=k2*sqrt(x0);
  y00:=y10;
  xa:=18; xb:=20; xc:=sqr(k1*sqrt(xa)/k2); xd:=sqr(k1*sqrt(xb)/k2); con:=0;
  j0:=250000;
  s1:=FloatToStr(k1); s1:='gister'; ch:=#27;
  {End Data}
  
  for i:=0 to 8 do
  for k:=8 downto 0 do
   begin
     DrawRectangle(xn,yn,xn+dx*i, yn+dy*4-dy*k);
     if k=8 then
     begin
      case i of
       0:s:='-x%'; 1:s:='-75';
       2:s:='-50'; 3:s:='-25';
       4:s:='0'; 5:s:='25';
       6:s:='50'; 7:s:='75';
       8:s:='x%'; 
      end;
      TextOut(xn+3+dx*i,yn+3,s);
      end;
      if i=0 then
     begin
      case k of
       0:s:='-y1%'; 1:s:=' -75';
       2:s:=' -50'; 3:s:=' -25';
       4:s:='   0';
       5:s:='  25'; 6:s:='  50';
       7:s:='  75'; 8:s:=' y1%';
      end;
      TextOut(xn-tx+dx*i,yn+dy*4-dy*k-ty,s);
      end;
        if i=8 then
     begin
      case k of
       0:s:='-y2%'; 1:s:=' -75';
       2:s:=' -50'; 3:s:=' -25';
       4:s:='   0'; 5:s:='  25';
       6:s:='  50'; 7:s:='  75';
       8:s:=' y2%';
      end;
      TextOut(xn+3+dx*i,yn+dy*4-dy*k-ty,s);
      end;
         if (i=0) and(k=8) then
      repeat
      case l of
       0:begin Str(k1:2:1,s);s:=' k1= '+s; end;
       1:begin Str(k2:2:1,s);s:='  k2='+s;end;
       2: begin Str(x0:2:1,s);s:='  x0='+s;end;
      end;
      TextOut(xn+16*tx+dx*i,yn+dy*4-dy*k+l*ty,s);
      inc(l);
      until l=3;
   end;l:=0;
   str(xa:2:1,aa); str(xb:2:1,bb);str(xc:2:1,cc); str(xd:2:1,dd);
   repeat
   case l of
       0:s:='xa='+aa; 
       1:s:='xb='+bb;
       2:s:='xc='+cc; 
       3:s:='xd='+dd;
      end;
   Font.Color := clDarkCyan; Font.Size := 12; 
   TextOut(xn+1 +(l*3)*tx,yn-4*dy-2*ty,s);
   inc(l);
   until l=4;l:=0;
    repeat
   case l of
       0:s:='   y1=k1*sqrt(x)'; 
       1:s:='   y2= k2*sqrt(x)';
      end;
   Font.Style := fsBold;   
   Font.Color := clred; Font.Size := 12;  
   TextOut(xn+12*tx,yn-4*dy-ty*(l+2),s);
   inc(l);
   until l=2;l:=0;
   {Solver}
   a:= k1*sqrt(xa); b:=k1*sqrt(xb); c:=k2*sqrt(xc); d:=k2*sqrt(xd);
    for j:=0 to j0 do
    begin
   x:=con+x0*sin(4*pi*j/j0);
   y1:=k1*sqrt(abs(x));
   y2:=k2*sqrt(abs(x));
   if (p-x<0) and (x<=xb) then y:=y1;
   if (p-x <0) and (x >=xb) and (x<=xd) then y :=b+ (d-b)/(xd-xb)*(x-xb);
   if (p-x<0) and (x >xd) then y:=y2 ;
   if (p-x>0) and (x>=xc) then  y:=y2;
   if (p-x>0) and (x0<xc ) then   y:= c+(c-a)/(xc-xa)*(x-xc);
   if (p-x>0) and (x<=xc) and ( x>= xa)  then  y:= c+(c-a)/(xc-xa)*(x-xc);
   if(p-x>0) and (x0<xb) then y:=y1;
   if (p-x>0) and (x<xa) then y:=y1; 
   if x<0 then y:=-y1;
   putpixel(xn+4*dx+trunc(4*dx*x/x0), yn- trunc(4*dy*y/y00),clblack);
   p:=x;
    end;
  nx:=0;ny:=0; kx:=ax;ky:=by;
  if ch=#8 then
  savBm(nx,ny,kx,ky,s1);
  {End Solver}
end.