Pascal/Turbo Pascal - Escribiendo en archivos de texto

Exportar los números generados a un archivo de texto por defecto ‘numeros.txt’, de a doce por

línea y en columnas de seis caracteres de ancho: Write(t, e:6), con t: Text y asignado con

‘numeros.txt’.

procedure Exportar(var archLogico:arch);

var

	numeros:text;

	e:Integer;

begin

	reset(archLogico);

	assign(numeros,'numeros.txt');

	rewrite(numeros);

	while not eof(archLogico) do

		begin

			read(archLogico,e);

			write(numeros,e:6);

		end;

	close(archLogico);

	close(numeros);

end;

{No se si servirá esto}

program numerosatexto;

  uses

     crt;

   const

      linea = 12;

      colum = 6;

   var

     pp, nc, cont, generador : integer;

     f : text;

     sal : char;

   procedure carganumeros;

   begin

      Append(f);

      nc := 1;

   while nc < colum + 1 do

   begin

      cont := 1;

    repeat

      write(f,generador,' ');

      cont := cont + 1;

      if cont > linea then

      write(f,#10 + #13);

      generador := random(250) + 1;

     until cont > linea;

      nc := nc + 1;

   end;

     for cont := 1 to linea do

     write(f,' ');

     write(f,+#10+#13);

     close(f);

   end;

   procedure presentanumeros;

   var

     car : char;

   begin

      assign(f,'numeros.txt');

  {$I-} reset(f); {$I+}

     if ioresult <> 0 then

     writeln('  El Archivo No Esta ')

   else

     begin

       while not eof(f) do

       begin

          read(f,car);

          write(car);

       end;

         close(f);

         readkey;

     end;

   end;

  begin

      clrscr;

      randomize;

      generador := random(250) + 1;

      assign(f,'numeros.txt');

      rewrite(f);

      close(f);

      pp := 1;

   repeat

      carganumeros;

      writeln('  Num. Bloque = ',pp,'  Desea Entrar Mas Bloques De Numeros [S/N]');

      pp := pp + 1;

      repeat

         sal := upcase(readkey);

      until sal in['S','N'];

      clrscr;

   until sal = 'N';

   clrscr;

   presentanumeros;

  end.