помогите исправить программу в паскале

Question

Var 
 k : integer; 
 s,f: real; 
Begin 
 k := 0; 
 s := 0; 
 writeln ('Ââåäèòå ïîñëåäîâàòåëüíîñòü'); 
 Repeat 
 readln (f); 
 k := k + 1; 
 If f > 0 Then 
 Begin 
 s := s + k; 
 writeln ('k=', k); 
 End; 
 Until f = 0; 
 writeln ('s=', s); 
End. 
 
это мое решение, а вот условие 
 
7.Дана последовательность ненулевых вещественных чисел, за которой сле¬дует 0 (0 – признак конца последо¬вательности) . Вывести на экран порядковые номера положительных элементов и их количество. 
 
буду очень благодарен, сам никак не разберусь. и если не трудно дайте фул программу, а то вставлять кусок кода не очень удобно

Димарик Дарманчев · Accepted Answer

это не через массивы ли делать?

Анастасия Орлова · Answer

Var 
k : integer; 
s,f: real; 
Begin 
k := 0; 
s:=0; 
writeln ('Ââåäèòå ïîñëåäîâàòåëüíîñòü'); 
repeat 
readln (f); 
if f=0 then break; 
s:=s+f; 
k := k + 1; 
If f > 0 Then writeln(k,', '); 
Until (1<>1); 
writeln ('s=', s); 
End. 
 
Как-то так =) Мог ошибиться)))