Определить каким по счету будет первое отрицательное число - Pascal

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

Помогите, кто может, пожалуйста. С клавиатуры вводятся любые числа. Определить, каким по счёту будет первое отрицательное число. Окончание ввода по нулю.

                    Листинг программы
                
 
                        
                          
                    
var n, i, a:integer;
begin
i := 0;
a := 0;
repeat
writeln('Vvedite chislo: ');
readln(n);
i := i + 1;
if n < 0 then
a := i + a;
 
until n = 0;
writeln('Otricatelnoe chislo po schetu: ', a);
 
readln;
end.

Решение задачи: «Определить каким по счету будет первое отрицательное число»

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

var
    i: LongWord;
    x: Real;
begin
    i:=0;
    repeat
        Write('Input x='); ReadLn(x);
        Inc(i);
    until x < 0;
    WriteLn(i);
end.

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

Создается переменная i типа LongWord, которая будет использоваться для подсчета количества введенных чисел.
Создается переменная x типа Real для хранения вводимого числа.
Значение переменной i устанавливается равным 0.
Запускается цикл repeat-until, который будет выполняться до тех пор, пока введенное значение переменной x (читаемое с помощью функции ReadLn) будет меньше 0.
Внутри цикла программа запрашивает ввод числа и увеличивает значение переменной i на 1 с помощью функции Inc(i).
После того как будет введено отрицательное число, программа выводит значение переменной i (количество введенных чисел) с помощью функции WriteLn(i).
Программа завершается.