Задача Паскаль

[Fil98]

Добрый вечер, помогите пожалуйста
Требуется написать программу которая запрашивает числа с клавиатуры до тех пор, пока введенное число не будет больше суммы чисел или количество чисел не превысит 10

Вот код написанный
Но там почему-то игнорирует условие что если число веденное превысит сумму чисел то завершить прогу?
Помогите если знаете причину этого

program Project1;
var
Chislo: real;
Count: longint;
sum: real;
begin
Count:= 0;
{sum:= 0;}
writeln('Введите числа: ');
repeat
readln(Chislo);
inc(Count);
sum:= sum + chislo;
until (Chislo > sum) or (Count > 10);
writeln('Программа закончила работу, сумма:',sum);
readln;
end.

[digitalis]

Потому что введённое число суммируется вначале, поэтому сумма всегда будет больше введённого числа. Ну разве что отрицательные вводить. Попробуй : -5, 3. И зачем закомментил обнуление суммы - оно нужно.

[Mad_Cat]

until (chislo>sum-chislo)