Нужно привести код из с++ на pascal

Максим3 года в сервисе
Данные заказчика будут вам доступны после подачи заявки
18.11.2022

Нужен привести код из с++ в pascal

Примерно 30 строки 

C++

Заявки фрилансеров