Составить метод и программку решения задачки: Дано 15 вещественных чисел.Найти сколько

Все эти 15 чисел заранее будут знамениты юзеру, а значит необходимо написать код, который позволит ему вводить эти числа.
Сделаем переменные для вводимых чисел, для счетчика и для первого числа, поскольку именно с ним необходимо будет сопоставлять другие 14:
var number, first_number: real; count: integer;
Наполняем 1-ое число:
writeln(Введите 1-ое число:);
readln(first_number);
Заполняем оставшиеся 14 чисел:
for i:integer:=2 to 15 do
begin
writeln(Введите число , i, ; :);
readln(number);
if numbergt; first_number then
count:=count + 1;
end;
end.