Перевести код с С++ на язык Паскаль

int main()
{
    float A[3],B[3];//0-x,1-y,2-z
    float C[3];//Вторая найвысшая точка
    float D[3];//Самая низкая точка
    std::cout<<"Enter coordinats A ";
    for(int i=0;i<3;i++)
        std::cin>>A[i];
    std::cout<<"Enter coordinats B ";
    for(int i=0;i<3;i++)
        std::cin>>B[i];
    //Координаты второй высшей точки
    C[0]=2*A[0]-B[0];
    C[1]=B[1];
    C[2]=2*A[2]-B[2];
    //Вычисляем координаты самой низкой точки
    D[0]=A[0];
    D[1]=A[1]-sqrt((A[0]-B[0])*(A[0]-B[0])+(A[1]-B[1])*(A[1]-B[1])+(A[2]-B[2])*(A[2]-B[2]));
    D[2]=A[2];
    std::cout<<"Cx="<<C[0]<<"\nCy="<<C[1]<<"\nCz="<<C[2];
    std::cout<<"\nDx="<<D[0]<<"\nDy="<<D[1]<<"\nDz="<<D[2];
}

int main()
{
    float A,B,C;
    float S;//Площадь треугольника
    float H;//Высота треугольника
    std::cout<<"A=";
    std::cin>>A;
    std::cout<<"B=";
    std::cin>>B;
    std::cout<<"C=";
    std::cin>>C;
    if(A+B>C&&A+C>B&&C+B>A&&A>0&&B>0&&C>0)//проверяем треугольник ли - все стороны больше нуля и сумма любых двух больше третей
    {
        S=sqrt((A+B+C)*(A+B-C)*(A-B+C)*(-A+B+C))/4;
        H=2*S/A;
        std::cout<<"Ha="<<H;
    }
    else
        std::cout<<"Its not triangle";
}