Классы в Паскаль

[Wp74]

Парабола у =(x-A)^2+B. Поле first — вещественное число - коэффициент А; поле second — вещественное число, коэффициент В. Реализовать метод function()— вычисление для заданного х значения функции у.

Необходимо сделать на С++ и на Паскале. Если на С++ я легко все сделал, то на паскаля я даже представить ен могу, как работают классы. Может кто подсказать, показать и объяснить? Читал кучу статей и так ни чего и не понял. заранее благодарю)

Код на С+ прилагаю.

#include "stdafx.h"
#include <iostream>
using namespace std;
 
class funct 
{ 
    double first, second; 
public: 
    void put (double x, double y) 
    { 
        first=x; 
        second=y; 
    } 
    double getfirst() 
    { 
        return first; 
    } 
 
    double getsecond() 
    { 
        return second; 
    } 
    double function(int a) 
    { 
        return pow((a-first),2)+second;
    } 
};
 
int main()
{
    setlocale(LC_ALL,"Rus");
    int a;
    cout<<"Введите Х: ";
    cin>>a;
    funct z;
    z.put(10,2);
    cout<<"y("<<a<<")="<<z.function(a)<<endl;
    system("pause");
    return 0;
}