Программирование в Lazarus

Простая программа на плюсах с покомпонентным вводом массива с экрана, персональные данные вводятся необязательно по алфавиту (записи всё равно потом сортируются пузырьковой сортировкой):
#include <string>
#include <iomanip>
#include <iostream>
using namespace std;
struct NOTE {string surname, name;
unsigned long long phone, date[3]; };
void print(NOTE x)
{
cout << "name: " << x.surname << ' '
<< x.name << endl << "phone: " <<
x.phone << endl << "date:" << setw(6) <<
x.date[0] << setw(3) << x.date[1]
<< setw(3) << x.date[2] << endl;
}
int main()
{
int i, j, month;
NOTE person[8];
for (i = 0; i < 8; i++)
{
cout << i + 1 << ") ";
cin >> person[i].surname >> person[i].name
>> person[i].phone >> person[i].date[0] >>
person[i].date[1] >> person[i].date[2];
}
for (i = 1; i < 8; i++) for (j = 7; j >= i; j--)
if (person[j - 1].surname > person[j]. surname)
swap(person[j - 1], person[j]);
cout << "month: ";
cin >> month;
j = 1;
for (i = 0; i < 8; i++)
if (person[i].date[1] == month)
{
print(person[i]);
j = 0;
}
if (j) cout << "Nobody" << endl;
}
А на чём надо -на ФриПаскале? Что-то не хочется мне переписывать...

Пиши тоже самое только на фриланс, здесь за тебя не будут делать, здесь помогаю, а не делают