[Pascal] sucet_k - zdrojak - velmi surne

var
A,B,N,K,Sucet,Pocet: integer;

begin
Pocet:=0;
Sucet:=0;
Randomize;
write('Zadajte K: ');
readln(K);
write('Zadajte interval: ');
readln(A,B);


while Sucet<K  do
begin
N:=Random(B+1);
if N>=A then
begin
  Sucet:=Sucet+N;
  writeln(N);
  Pocet:=Pocet+1;
end;
end;

writeln('Program skoncil, pretoze sucet vygenerovanych cisel je vacsi ako K');
writeln('Sucet vygenerovanych cisel, ktorych sucet je mensi ako K, je: ', sucet);
writeln('Pocet cisel, ktorych sucet je mensi ako K, je: ', Pocet);
readln;
readln;
end.

program generovanie;
var k,a,b,pocet,sucet,cislo:integer;
    dokedy,interval:boolean;
begin
    writeln;
    write('Zadaj sucet max. vygenerovanych cisel : ');
    readln(k);
    write('Zadaj interval : ' );
    readln(a,b);
    randomize;
       pocet:=0;
       dokedy:=false;
       interval:=false;
        repeat
         begin
          if a<b then
           begin
            cislo:=random(b)+1;
             if (a<=cislo) and (cislo<=b) then
              begin
                pocet:=pocet+1;
                sucet:=cislo+sucet;
                 end;
             if sucet>k then
              begin
               dokedy:=true;
             end
            end
           else
           
            interval:=true;
           end;
          until dokedy or interval;
           writeln('pocet vygenerovanych cisel : ', pocet);
           writeln('sucet vygenerovanych cisle : ', sucet);
          readln
        end.
       end.