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

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

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

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

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

Var i,n,index:integer;
    m:real;
Begin
    write('N: ');
    readln(n);
    writeln('Введите ',n,' вещественных чисел');
    index:=0;
    For i:=1 to n do
    Begin
      read(m);
      if m<0 then index:=i;
    End;
    if index=0 then writeln('В последовательности отрицательных нет')
     else writeln('Порядковый номер последнего отрицательного числа = ',index);
    readln;
End.

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

В данном коде на языке Pascal происходит следующее:

Пользователю предлагается ввести число n, которое представляет собой количество вещественных чисел, которые он хочет ввести.
Затем пользователю предлагается ввести n вещественных чисел.
Переменная index инициализируется нулем. Она будет использоваться для отслеживания порядкового номера последнего отрицательного числа.
Затем происходит цикл, который выполняется n раз. На каждой итерации пользователю предлагается прочитать очередное вещественное число.
Внутри цикла проверяется, является ли введенное число отрицательным. Если это так, то переменной index присваивается значение текущей итерации (i).
После завершения цикла выводится сообщение, указывающее, есть ли в последовательности отрицательные числа. Если отрицательные числа есть, то выводится порядковый номер последнего отрицательного числа.
В конце программы выводится сообщение о том, что все данные были успешно прочитаны. Важно отметить, что данный код не использует вложенные списки.