Угадай число! 2.0

program ugadaichislo;
var a,b,c,d,f:integer;
label mod1, mod2, mod3, modr, modre;
begin
modre:  writeln('Выберите режим игры');
    writeln('1 - Промежуток от 0 до 100');
    writeln('2 - Промежуток от 0 до 1000');
    writeln('3 - Промежуток от 0 до 1000000000');
    writeln('4 - Промежуток от 0 до X');
    readln(c);
    if c=1 then goto mod1;
    if c=2 then goto mod2;
    if c=3 then goto mod3;
    if c=4 then goto modr;
    if c<0 then goto modre;
    if c>5 then goto modre;
    d:=0;
mod1:   begin
        a:=random(100);
        repeat
            d:=d+1;
            readln(b);
            if a<b then writeln('Загадонное число меньше');
            if a>b then writeln('Загадонное число больше');
        until a=b;
        writeln('Число угадано!');
    end;
mod2:   begin
        a:=random(1000);
        repeat
            d:=d+1;
            readln(b);
            if a<b then writeln('Загадонное число меньше');
            if a>b then writeln('Загадонное число больше');
        until a=b;
        writeln('Число угадано!');
    end;
mod3:   begin
        a:=random(1000000000);
        repeat
            d:=d+1;
            readln(b);
            if a<b then writeln('Загадонное число меньше');
            if a>b then writeln('Загадонное число больше');
        until a=b;
        writeln('Число угадано!');
    end;
modr:   begin
        writeln('Введите ваш промежуток');
        readln(f);
        a:=random(f);
        repeat
            d:=d+1;
            readln(b);
            if a<b then writeln('Загадонное число меньше');
            if a>b then writeln('Загадонное число больше');
        until a=b;
        writeln('Число угадано!');
    end;
writeln('Время: ',Milliseconds/1000);
writeln('Число попыток: ',d);
end.