Números aleatorios

{
    Escribir un programa que permita, mediante el uso de un menú:
        1) Generar números aleatorios entre dos números arbitrarios
        ingresados por teclado y guardarlos en un archivo 'datos.txt'.
        La cantidad de números generados se ingresa también por teclado.
        2) Calcular la suma de los números almacenados en el archivo
        'datos.txt'.

    El menú debe reiterarse hasta que el usuario desee salir.
}

program numeros;

var
    opcion: Char;
    cota_sup, cota_inf, num: Integer;
    suma: LongInt;
    n, i: Word;
    archivo: Text;

begin
{
    repeat
        writeln('Elija una opción:');
        writeln('1) Generar números aleatorios entre dos números arbitrarios');
        writeln('2) Calcular la suma de los números almacenados');
        writeln('s) Salir');
        readln(opcion);

        if (opcion <> 's') then
        begin
            case opcion of
                '1':
                begin
                end;
                '2':
                begin
                end;
            else
                writeln('Opción no es válida');
            end;
        end;
    until opcion = 's';
}

    writeln('Elija una opción:');
    writeln('1) Generar N números aleatorios entre dos números arbitrarios');
    writeln('2) Calcular la suma de los números almacenados');
    writeln('s) Salir');
    readln(opcion);

    while (opcion <> 's') do
    begin
        case opcion of
            '1':
            begin
                write('Ingrese la cantidad de números aleatorios a generar: ');
                readln(n);
                write('Ingrese cota inferior: ');
                readln(cota_inf);
                write('Ingrese cota superior: ');
                readln(cota_sup);

                assign(archivo, 'datos.txt');
                rewrite(archivo);
                for i := 1 to n do
                begin
                    {
                    entre k y l
                    Random(l - k + 1) + k
                    entre -10 y 5
                    Random(5 - (-10) + 1) + (-10)
                    Random(16) - 10
                    }
                    num := Random(cota_sup - cota_inf + 1);   // Random(n) genera n aleatorios entre 0 y n (no inclusive)
                    num := num + cota_inf;
                    writeln(archivo, num);
                end;
                close(archivo);
            end;
            '2':
            begin
                assign(archivo, 'datos.txt');
                reset(archivo);

                suma := 0;
                while not eof(archivo) do
                begin
                    readln(archivo, num);
                    suma := suma + num;
                end;

                close(archivo);

                writeln('La suma de los números en el archivo es de ', suma);
            end;
            else
                writeln('Opción no es válida');
        end;

        writeln('Elija una opción:');
        writeln('1) Generar N números aleatorios entre dos números arbitrarios');
        writeln('2) Calcular la suma de los números almacenados');
        writeln('s) Salir');
        readln(opcion);
    end;
end.