Приветствую, пожалуйста объясните почему программа не работает?

[email protected] в категроии Информатика, вопрос открыт 07.03.2018 в 19:15

Условие:Составьте программу,которая выведет число фибоначчи* до введенного числа.

*Число Фибоначчи - Чи́сла Фибона́ччи — элементы числовой последовательности
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, а каждое последующее число равно сумме двух предыдущих чисел.

Pascal

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.

Много перепробовал разных вариантов, но никак не выходит.

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