Найти сумму чисел из файла, меньших заданного числа. Помогите пожалуйста, Паскаль

varf:text;n,n1,s:real;beginreadln(n);Assign(t,'input.txt');while (eof(t)=false)dobeginreadln(t,n1);if (n1 < n)then s:=s+n1;end;Close(t);writeln(s)end.