Переделка программы с Pascal на С++

Var a, b, c, d, e, y, Ymax, Xmax,
 
X0,X, Xk, Xmin, Ymin, h, k :real;
 
I, n, count :integer;
 
Status :integer; // 0-убывание, 1-возрастание
 
Label l1;
 
Function MOO(x:real):real;
 
Begin
 
Result:=a*x*x*x + b*x*x + c*x + d;
 
End;
 
Begin
 
Form1.Series1.Clear;
 
Try // ввод начальных условий
 
Withform1 do
 
Begin
 
LabelXmin. Caption:=’Xmin = 0′;
 
LabelYmin. Caption:=’Ymin = 0′;
 
LabelXmax. Caption:=’Xmax = 0′;
 
LabelYmax. Caption:=’Ymax = 0′;
 
End;
 
A:=strtofloat(form1.Edit1.Text);
 
B:=strtofloat(form1.Edit2.Text);
 
C:=strtofloat(form1.Edit3.Text);
 
D:=strtofloat(form1.Edit4.Text);
 
E:=strtofloat(form1.Edit5.Text);
 
H:=strtofloat(form1.Edit6.Text);
 
X0:=strtofloat(form1.Edit7.Text);
 
Xk:=strtofloat(form1.Edit8.Text);
 
K:=10;
 
Ymin:=1000000000;
 
Ymax:=-10000000000;
 
Status:=1;
 
Count:=1;
 
Except
 
ShowMessage(‘Неправильно введены начальные условия’);
 
End;
 
L1: n:=trunc((xk-x0)/h)+1;
 
X:=x0;
 
For i:=1 to n do
 
Begin
 
Y:=MOO(x);
 
Case status of
 
0: if y<Ymin then
 
Begin
 
Ymin:=y;
 
Xmin:=x;
 
X:=x+h;
 
End;
 
1: if Y>Ymax then
 
Begin
 
Ymax:=y;
 
Xmax:=x;
 
X:=x+h;
 
End;
 
End;
 
End;
 
If count <= 2 then
 
If h <= e then
 
Begin
 
With form1 do // вывод результата
 
Begin
 
LabelXmin. Caption:=’Xmin = ‘+floatTostr(Xmin);
 
LabelYmin. Caption:=’Ymin = ‘+floatTostr(Ymin);
 
LabelXmax. Caption:=’Xmax = ‘+floatTostr(Xmax);
 
LabelYmax. Caption:=’Ymax = ‘+floatTostr(Ymax);
 
End;
 
Status :=(status+1) mod 2; //Следующий экстремум
 
Count:=count+1;
 
X0:=Xmin;
 
Xk:= strtofloat(form1.Edit8.Text);
 
H:=strtofloat(form1.Edit6.Text);
 
Goto l1;
 
End
 
Else
 
Begin
 
X0:=Xmin-h;
 
Xk:=Xmin+h;
 
H:=h/k;
 
Goto l1;
 
End;
 
X:=strtofloat(form1.Edit7.Text);
 
While x < strtofloat(form1.Edit8.Text) do
 
Begin
 
Y:=MOO(x);
 
Form1.Series1.AddXY(x, y);
 
X:=x+0.1;
 
End;
 
End;