Сформировать и вывести на экран массив вещественных чисел K={ki}, i=1..b

[NitriNKa]

Помогите, пожалуйста, выполнить вторую часть задания, где нужно определить номера элементов в массиве. Вот задание: Сформировать и вывести на экран массив вещественных чисел K={ki}, i=1..b, где b − число элементов в массиве K (b≤260). Вычислить произведение первого, третьего и шестого положительных элементов и определить их номера в данном массиве. Вывести результат на экран. В случае отсутствия искомых данных, вывести об этом сообщение. И задача:

Program Lab4;
Uses CRT;
Var
k: array [1..260] of real;
i,b: integer;
sch: integer;
p: real;
Begin
Clrscr;
Writeln ('Vvedite kolichestvo elementov: ');
Readln (b);
if b>260 then
b:=260;

sch:=0;
p:=1;
Writeln ('Zapolnit massiv');
For i:=1 to b do
    begin
    Readln (k[i]);
    if k[i]>0 then
       begin
       sch:=sch+1;
       if sch in [1,3,6] then
       p:=p*k[i];
       end;
    end;
if sch<6 then writeln ('Net 6-go polozhitelnogo');
if sch<3 then writeln ('Net 3-go polozhitelnogo');
Writeln ('Proizvedenie = ',p:3:2);
readln;
end.

[AlexanderKs]

Так как данные обрабатываются сразу же после ввода, нужно запоминать значение i в случае, если введенное числи положительное (k[i]>0). i - номер введенного числа в массиве.

[NitriNKa]

а не могли бы вы это в коде написать???

[Sazary]

Ну вместо этого

if sch in [1,3,6] then
 p:=p*k[i];

будет как-нибудь так:

if sch in [1,3,6] then
 begin
 p:=p*k[i];
 writeln('Индекс ',sch,'-ого положительного элемента = ',i);
 end;