Составьте программу, которая выведет число Фибоначчи до введенного числа - Pascal

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

Приветствую, пожалуйста объясните почему программа не работает? Условие:Составьте программу,которая выведет число фибоначчи* до введенного числа. *Число Фибоначчи - Чи́сла Фибона́ччи — элементы числовой последовательности 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946, 17711, … в которой первые два числа равны либо 1 и 1, либо 0 и 1, а каждое последующее число равно сумме двух предыдущих чисел.

Program Test;
Var sum,F,f1,n:word;
Begin
f1:=1;
sum:=0;
WriteLn('Введите цифры до которых будет выведено число:');
ReadLn(n);
repeat
sum:=sum+f1;
f1:=sum;
WriteLn('Вот ваше число:',sum);
until sum ? n //Тут не понял что ставить "<" или ">"
End.

Много перепробовал разных вариантов, но никак не выходит. Буду благодарен всем предложенным решениям и советам.

Решение задачи: «Составьте программу, которая выведет число Фибоначчи до введенного числа»

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

var sum,F,f1,n:word;
begin
write('Введите число до которого будут выведены числа Фибоначчи n=');
readLn(n);
f:=0;
f1:=1;
while f+f1<n do
 begin
  sum:=f+f1;
  writeLn(sum);
  f:=f1;
  f1:=sum;
 end;
end.

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

Объявлены четыре переменные: sum, F, f1, n типа word.
Переменная n инициализируется значением, введенным пользователем при помощи функции readLn.
Переменные f и f1 инициализируются начальными значениями 0 и 1 соответственно.
Запускается цикл while, который выполняется до тех пор, пока сумма f и f1 меньше значения переменной n.
Внутри цикла происходит вычисление суммы f и f1 и присваивание её переменной sum.
Результат выводится на экран при помощи функции writeLn.
Значение переменной f присваивается переменной f1, а значение переменной f1 присваивается переменной sum.
Цикл while завершается.
Программа заканчивается.