Проблема со случайными числами

[Renge]

Собственно, вот, вместе с заданием:

BEGIN
  Randomize;
  kol:=0;
  Repeat
    ClrScr;
    a:=0;
    S1:=0;
    Writeln ('Имеется число S0. Генерируются случайные число Х в диапозоне от А до В. 1. Сл. чисел должно оказаться не меньше N.');
    Writeln ('2. Генерация продолжается до тех, пока их сумма S1 не станет больше либо равной');
    Writeln ('S0. 3. Генерация не должна продолжатся, когда S1 стала больше S0. Числа S0 И N вводятся с экрана. Вывести на экран:');
    Write ('Укажите S0 ');
    Readln (S0);
    Write ('Укажите N');
    Readln (N);
    b:=S0;
    Repeat
     x:=Random(b-a+1)+a;
     kol:=kol+1;
     S1:=S1+x;
     Write (x, ' ');
    Until ((S1>S0) or (S1=S0)) and (kol>n)
    Until ReadKey=#27
END.

Проблема в том, что 3 условие не хочет выполнятся. Выводится не одно число, которое осуществляет S1>S0, а больше. Это за счет того, что чисел выводится не меньше N. Не понимаю как это совместить, чтобы выводилось чисел не менее N, но при этом одно число осуществляло неравенство.

[Hacker19_90]

Так у вас здесь и ошибка

a:=0; 
Repeat 
     x:=Random(b-a+1)+a; 
     S1:=S1+x; 
     Write (x, ' '); 
    Until (S1<S0) or (S1=S0)

Вот и смотрите! a = 0! S0 допустим 5
тогда s1 = Random(5-0+1)+0;
Наврятли сразу выдаст максимальное 6;
Пусть 3;
3 < 6! В repeat код выполняется пока условие ложно!
а 3 < 6 это истина вот и выводит вам одно число!

[Renge]

Каюсь-каюсь, с этим делом я уже справилась и отредактировала сообщение, работать другое не хочет.

[Hacker19_90]

Объясните пожалуйста!

Не понимаю как это совместить, чтобы выводилось чисел не менее N, но при этом одно число осуществляло неравенство.