Срочно нужно написать программу на Паскале. Переменные x и k

Вводится последовательность чисел которая заканчивается нулем. Посчитать сколько в ней чисел больше 1

var
    x, k: real;

begin
    repeat
        write(x = );
        readln(x);
        if x gt; 1 then k := k + 1;
    until x = 0;
    writeln(k);
end.

Пример вывода
x = 2
x = 1
x = 0
1