Дана непустая последовательность вещественных чисел, оканчивающаяся нулем. Последовательность является невозрастающей - PascalABC.NET

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

Дана непустая последовательность вещественных чисел, оканчивающаяся нулём. Последовательность является невозрастающей. Найти количество различных чисел в последовательности. Помогите!

Решение задачи: «Дана непустая последовательность вещественных чисел, оканчивающаяся нулем. Последовательность является невозрастающей»

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

begin
  var L:=New List<real>;
  var v:Real;
  repeat
    v:=ReadReal('Число или ноль:');
    if (v<>0)and(L.IndexOf(v)<0) then L.Add(v);
  until v=0;
  WriteLn('Различных чисел ' + L.Count);
end.

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

Создается пустой список L типа List для хранения чисел.
Создается переменная v типа Real для чтения чисел с клавиатуры.
Запускается цикл while, который будет выполняться до тех пор, пока не будет введено ноль.
В каждой итерации цикла в переменную v считывается число с клавиатуры.
Если считанное число не равно нулю и его еще нет в списке L, то оно добавляется в список.
После окончания цикла выводится сообщение о количестве различных чисел в списке.