Вывести номера второго, четвертого и пятого положительных элементов массива - Pascal ABC

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

Помогите пожалуйста!! Одномерный массив!в Pascal ABC ) Создать и вывести массив у с элементами yk = cos2.1*x*sin (x/0.15)-5.8, k = 16. Выполнить задание своего варианта. Вывести номера второго, четвертого и пятого положительных элементов.

Решение задачи: «Вывести номера второго, четвертого и пятого положительных элементов массива»

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

program arrays23;
const
  k=16;
var
  y:array[1..k] of real;
  n,i:integer;
  x:real;
begin
//  readln(x); как меняется x?
  for i:=1 to k do
    begin
      y[i] := cos(2.1)*i*sin(i/0.15)-5.8;
      writeln(y[i]:0:2,' ');
    end;
  writeln;
  n:=0;
  for i:=1 to k do
    if y[i]>0 then
      begin
        inc(n);
        if n=2 then
          writeln('2-st positive: ',i);
        if n=4 then
          writeln('4-st positive: ',i);
        if n=5 then
          writeln('5-st positive: ',i);
      end;
  readln;
end.

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

Этот код написан на языке Pascal ABC и выполняет следующие действия:

Объявляет переменные: k (равное 16), y (массив из 16 элементов типа real), n (целое число) и i (целое число).
Задает начальное значение для переменной n, которая будет использоваться для отслеживания количества найденных положительных элементов.
Запускает цикл for, который выполняется k раз (от 1 до 16).
Внутри цикла вычисляет значение каждого элемента массива y, используя формулу y[i] = cos(2.1)isin(i/0.15)-5.8.
Выводит значение каждого элемента массива y с префиксом '2-st positive: ', если n равно 2, '4-st positive: ', если n равно 4, и '5-st positive: ', если n равно 5.
Увеличивает значение переменной n, если текущий элемент массива y больше нуля.
Проверяет, равно ли значение переменной n 2, 4 или 5, и выводит соответствующую строку в зависимости от этого.
Выводит сообщение 'Read more' и ожидает ввода пользователя.
Конец программы.