from
        f.read_word
    until
        f.end_of_input -- indicación de final de fichero.
    loop
            numero:=(io.last_string.to_integer)
            numeros.force(numero,contfila,contcolumna)
            contcolumna:=contcolumna+1
            if contcolumna=10 then
                contcolumna:=1
                contfila:=contfila+1
            end
            f.read_word -- avanza en la lectura de una palabra más
    end