Номер элемента в последовательности, Нужна помощь Опции

[tolyanl1985]

Найти порядковый номер последнего отрицательного числа в последовательности из n вещественных чисел



Помогите решить на паскале!!!

[Гость]

Идёшь по массиву с конца. Если текущий элемент меньше нуля, запоминаешь его номер и выходишь.

Я сделал так:

program Zadacha_5;{ищем номер последнего отрицательного числа в последовательности }
var
a,k:real;
i,n:integer;
begin
i:=1;
n:=0;
k:=0;
Writeln('Введите последовательность вещественных чисел(через пробел); признак его завершения - число "0"');
Read(a);
While (a<>0) do
begin
if a<k then begin n:=i; end;
inc(i);
Read(a);
end;
Writeln('Hомер последнего отрицательного числа в последовательности ',n);
end.


СКАЗАЛИ НЕ ПРАВИЛЬНО!!! Преподаватель сказал мол работает правильно но тут последовательность из N вещественных чисел, а не последовательность оканчивающаяся нулём"0"