Pascal/Turbo Pascal - Generar archivos

{A ver te muestro este proceso a ver  si te vale así y procesar el resto con arreglo a ello }

 program biblioteca;

 uses

    crt;

  const

  area : array[1..8] of string[22] = (

'matematica','lengua y literatura','ciencias sociales','idiomas extranjeros',

'informatica','arte y cultura','pedagogia y didactica','otros');

  type

    libros = record

           nlibro : integer;

           titulo : string[80];

           autors : string[80];

        editorial : string[80];

          edicion : string[12];

       codigotema : integer;

           estado : boolean;

         end;

    socios = record

           nsocio : integer;

         apellido : string[80];

          nombres : string[80];

        domicilio : string[80];

        localidad : string[80];

     codigopostal : word;

         telefono : word;

    correoelectro : string[110];

           end;

     prestamos = record

              nsocio : integer;

              nlibro : array[1..2] of integer;

       fechaprestamo : array[1..2] of string[12];

          devolucion : array[1..2] of boolean;

            end;

     var

       f : file of libros;

      f1 : file of socios;

      f2 : file of prestamos;

    soci : socios;

    libe : libros;

    pres : prestamos;

    cont : longint;

   procedure entralibros;

   begin

   end;

   procedure entrasocio;

   begin

   end;

   procedure entraprestamo;

   begin

   end;

   procedure listado_libros_existentes;

   begin

   end;

   procedure listado_libros_existentes_codigo_tema_especificado;

   begin

   end;

  begin

  end.