Опишите на Паскале алгоритм, который находит и выводит номер и значение 4 положительного элемента массива + нужен контрольный пример. Помогите пожалуйста.

не забываем - нумерация в массиве начинается с 0

var

   d : array of integer := new integer[30];

   n : integer := -1;

   i : integer;

begin

   d := arrRandom(30, -100, 100);

   repeat

       n += 1;

       if d[n] > 0 then i += 1;

   until (n = 29) or (i = 4);

   writeln('массив: ', d);

   writeln('четвертый положительный элемент массива d[', n, ']=', d[n]);

end.