Найти все положительные числа, из которых выбрать наименьшее ( переделать с C++ на паскаль ) - Pascal

Формулировка задачи:

Помогите, пожалуйста

#include <iostream>
#include <math.h>
 
using namespace std;
 
void main()
{
    int n;
    cin >> n;
    double* a;
    a = new double[n];
    double temp;
    for (int i = 0; i < n; i++)
    {
        temp = (i - 1) * (i - 1) * (i - 1) / (i + 1);
        a[i] = (i - 1)/ (i + 1) + sin(temp);
        cout << a[i] << " ";
    }
 
    cout << endl;
    double min = 1000;
    for (int i = 0; i < n; i++)
    {
        if(a[i] > 0)
        {
            cout << a[i] << " ";
            if(min > a[i])
                min = a[i];
        }
    }
    cout << endl << "min: " << min << endl;
    system("Pause");
}

Решение задачи: «Найти все положительные числа, из которых выбрать наименьшее ( переделать с C++ на паскаль )»

Листинг программы

program test;
var a:array[1..255] of real;
b:array[1..255] of real;
i,n,m,j:integer;
pull:real;
begin
writeln('введите размерность массива');
readln(n);
j:=1;
for i:=1 to n do begin
a[i]:=(i-1)/(i+1)+sin((i-1)/(i+1)); {ваша функция}
if (a[i]>0) then begin {ищем положительные элементы}
b[j]:=a[i]; {если нашли, то записываем это число в новый массив} 
inc(j); {Шаг для записывания чисел в новый массив}
inc(m); {Размерность будущего массива}
end;
end;
pull:=b[1]; {Произвольная переменная, для поиска минимума}
for j:=1 to m do begin
writeln('b[',j,']=',b[j]);
if (b[j]<pull) then begin {ищем минимум}
pull:=b[j]; {нашли}
end;
end;
writeln('Наименьшее число из положительных,',' ',pull); {вывели минимум}
readln;
end.

Объяснение кода листинга программы

Программа запрашивает у пользователя размерность массива и сохраняет его в переменную n.
Создаются два массива a и b размером n.
В цикле по всем элементам массива a проверяется, является ли элемент положительным числом.
Если элемент положительный, то он записывается в массив b и увеличивается индекс j для следующего элемента в b.
Увеличивается значение m для отслеживания размера нового массива.
После цикла, в переменной pull хранится первый элемент массива b.
В цикле по всем элементам массива b проверяется, является ли текущий элемент меньше значения pull.
Если текущий элемент меньше pull, то он становится новым значением pull.
После цикла, выводится сообщение с наименьшим положительным числом из массива b.