Трансляция из С++ в Delphi

/*открытие библиотек*/
#include<iostream>
#include<math.h>
#include<conio.h>
#include <iomanip>
#include <windows.h>
#include <stdlib.h>
using namespace std;
using std::ostream;
/**/
 
int main ()
        {
       double a, b, c, d, fx, fy, eps, grad, alfa, xk, yk, fk, x, y, f, j;     //прописывание переменных в типе "float"
       setlocale(0,"");
       system("cls"); // очистка экрана
 
        /*ввод данных*/
        cout<<"vvedite a: ";
        cin>>a;
        cout<<"vvedite b: ";
        cin>>b;
        cout<<"vvedite c: ";
        cin>>c;
        cout<<"vvedite d: ";
        cin>>d;
        /**/
 
        /*начальные данные*/
        xk=yk=0;
        alfa=j=1;
        eps=0.0001;
        /**/
 
        /*вывод на экран шапки таблицы*/
        cout<<endl<<left<<setw(6)<<"шаг"<<setw(12)<<"x"<<setw(11)<<"y"<<setw(17)<<"знач.функции"<<setw(17)<<"знач.производной"<<setw(12)<<"градиент"<<"альфа"<<endl<<endl;
        /**/
 
        /*цикл вычисления кординат минимального значения функции*/
        do
                {
 
                /*присвоение значения координат последующей точки*/
                x=xk;
                y=yk;
                /**/
 
                qwerty:
                        f=a*x+b*y+exp(c*x*x+d*y*y);             //вычисление значения функции в точке с координатами x и y
                        fx=a+exp(c*x*x+d*y*y)*2*c*x;            //вычисление значения производной функции от х
                        fy=b+exp(c*x*x+d*y*y)*2*d*y;            //вычисление значения производной функции от y
                        xk=x-alfa*fx;                           //пересчет координаты x
                        yk=y-alfa*fy;                           //пересчет координаты Y
                        fk=a*xk+b*yk+exp(c*xk*xk+d*yk*yk);      //вычисление значения функции в новой точке с координатами xk и  yx
 
                        grad=sqrt(fx*fx+fy*fy);                 //вычисление градиента функции
 
                        /*запись данных в строчку таблицы*/
                        cout<<left<<setw(6)<<j<<setw(12)<<x<<setw(11)<<y<<setw(17)<<f<<setw(17)<<fk<<setw(12)<<grad<<alfa<<endl;
                        /**/
 
                        /*проверка проскакивания минимального значения функции*/
                        if(fk>f)                                //условие проскакивания
                                {
                                alfa=alfa/2.0;                  //уменьшение альфа на половину
                                goto qwerty;                    //переход выполниние действия к метке "qwerty"
                                }
                        /**/
 
                        j++;                                    //подсчет шагов операции
                }
        while(grad>=eps);
        /**/
 
        cout<<endl<<"    xmin="<<x<<"    ymin="<<y;             //вывод на экран координат минимального значения функции
getch();       
return 0;
                                                //задержка экрана
        }