перевод в паскаль

[julian97]

есть код задачки на С++, помогите перевести в Паскаль

#include <iostream>
#include <algorithm>
using namespace std;

int
f(int a)
{
    int s = 0;
    while (a) {
        int b = a % 10;
        s += b * b;
        a /= 10;
    }
    return s;
}

int
main()
{
    int n;
    while (cin >> n) {
        vector<int> a;
        while ((n = f(n)) != 1 && find(a.begin(), a.end(), n) == a.end()) a.push_back(n);
        if (n == 1)
            cout << "HAPPY" << endl;
        else
            cout << "SAD" << endl;
    }
}

[type_Oleg]

Вот, функция.

function f(a:Integer):Integer;
var b:Integer;
begin
 f:=0;
 while a>0 do
  begin
   b:=a mod 10;
   f:=f+b*b;
   a:=a div 10;
  end;
end;

А саму main я не понял.

[BDA]

type_Oleg, осторожно, f в правой части уравнения.
julian97, это был всего-лишь пример того, как просто эта задача решается средствами C++. Наводки для перевода: нужен массив, в котором будут храниться встреченные числа; нужен счетчик, показывающий количество сохраненных чисел. Для упрощения можно взять массив элементов на 1000 (хотя дать гарантии, что размера хватит, нельзя) или разбираться в работе динамического выделения памяти.

[type_Oleg]

Да, я обычно Result использую. Но то не везде можно.
f:=f+... в Geany прокатило. Хотя, я всех тонкостей не знаю.

[Serge_Bliznykov]

напоминаю, что эта задача изначально решалась в теме
задача с цыклом

откуда TC и взяла код на плюсах, неосторожно написанный ей в качестве примера BDA.