Найти порядковый номер последнего отрицательного числа в последовательности из 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"

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

Немного не понял ответ преподавателя, но тем не менее решайте через массив.