Опишите на Паскале алгоритм, который обретает и выводит номер и значение

не забываем - нумерация в массиве начинается с 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] gt; 0 then i += 1;

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

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

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

end.