Pascal/Turbo Pascal - Como crear un archivo en pascal

Program Archivo;

Uses Crt;

var Archiv : text; {Variable tipo archivo de texto}

    Nombre : String;

Procedure CreaArchivo;

begin

  Assign(Archiv,'C:\prueba.txt'); {Asigna variable "Archiv" a Pueba.txt}

  ReWrite(Archiv); {Crea el archivo}

  Writeln(Archiv,'Jorge');  Writeln(Archiv,'Luis');  {Escribe nombres}

  Writeln(Archiv,'Edgar');  Writeln(Archiv,'Pedro'); {en el archivo  }

end;

begin

  ClrScr; {Limpia la pantalla}

  CreaArchivo; {Llama al Procedimiento "CreaArchivo"}

  Reset(Archiv); {Abre el archivo. Vamos a escribir en el.}

    Readln(Archiv, Nombre);  Writeln(Nombre); {Lee del archivo y mete lo }

    Readln(Archiv, Nombre);  Writeln(Nombre); {leido a la variable Nombre}

    Readln(Archiv, Nombre);  Writeln(Nombre); {Luego muestra en pantalla }

    Readln(Archiv, Nombre);  Writeln(Nombre);

  Repeat Until KeyPressed;  {Repita hasta que se presione una tecla}

  Close(Archiv); {Cierra el archivo. Esto es importante}

end.

archivo : text;

   d : char;

    assign(archivo,'nombre.txt');

     reset(archivo);

     while not eof(archivo) do

      begin

          read(archivo,d);

          write(d);

      end;

type

        registro = record

                    nombre : string;

                    direccion : string;

                    telefono : longint;

                    end;

  var

       archivo : of registro;

        dato : registro;

         ta, h : longint;

          assign(archivo.'nombre.dat');

           reset(archivo);

           ta := filesize(archivo) - 1;

         for h := 0 to ta do

          begin

                 seek(archivo,h);

                 read(archivo,dato);

                 write(dato.nombre,'  ',dato.direccion,'  ',dato.telefono);

                  writeln;

          end;

assign(f,'monbre.extension');

  reset(f,1);

   blockread(f,dato,longitud,resultado);

camposcabecera = record

           idenbmp : array[0..1] of char;

           tamanobmp : longint;

           reserva1  : word;

           reserva2  : word;

           inicioimag : longint;

        end;

   campoinformacion = record

           tamanocabe : longint;

           tamanox    : longint;

           tamanoy    : longint;

           planoscolor : word;

           bitspixel   : word;

           compresion  : longint;

           tamaimagen  : longint;

           resolucionx : longint;

           resoluciony : longint;

           numerocolor : longint;

           coloresimpo : longint;

        end;