Unit Procedimientos_aeropuertos

unit Procedimientos_Aeropuertos;
interface
uses crt,aeropuertos;
var arch_aeropuerto:aeropuerto;
    reg_aeropuerto:t_aeropuerto;
    pos:integer;
    buscado:string[30];

procedure agregar_aeropuerto(var arch_aeropuerto:aeropuerto; var reg_aeropuerto:t_aeropuerto);
procedure buscar_aeropuerto(var arch_aeropuerto:aeropuerto; var reg_aeropuerto:t_aeropuerto; var pos:integer; buscado:string);
procedure listar_aeropuerto(var arch_aeropuerto:aeropuerto; var reg_aeropuerto:t_aeropuerto);

implementation
procedure agregar_aeropuerto(var arch_aeropuerto:aeropuerto; var reg_aeropuerto:t_aeropuerto);
begin
     with reg_aeropuerto do
     begin
          write('ingrese el codigo');
          readln(cod);
          write('ingrese nombre');
          readln(nombre);
          write('ingrese C.U.I.T');
          readln(cuit);
          write('Ingrese domiciolio');
          readln(domicilio);
     end;
     abrir(arch_aeropuerto);
     guardar(arch_aeropuerto,reg_aeropuerto);
     close(arch_aeropuerto);
end;

procedure buscar_aeropuerto(var arch_aeropuerto:aeropuerto; var reg_aeropuerto:t_aeropuerto; var pos:integer; buscado:string);
var p:integer;
begin
     abrir(arch_aeropuerto);
     write('ingrese el aeropuerto a buscar: ');
     readln(buscado);
     p:=0;
     pos:=-1;
     while (not eof(arch_aeropuerto)) and (pos=-1) do
     begin
          leer(arch_aeropuerto,p,reg_aeropuerto);
          if buscado=reg_aeropuerto.nombre then
          pos:=p;
          inc(p);
     end;
     close(arch_aeropuerto);
end;

procedure listar_aeropuerto(var arch_aeropuerto:aeropuerto; var reg_aeropuerto:t_aeropuerto);
var p:integer;
begin
     abrir(arch_aeropuerto);
     p:=0;
     while not(eof(arch_aeropuerto)) do
     begin
          leer(arch_aeropuerto, p, reg_aeropuerto);
          if reg_aeropuerto.activo then
          with reg_aeropuerto do
          begin
               writeln('codigo: ', cod);
               writeln('nombre: ', nombre);
               writeln('cuit: ', cuit);
               writeln('domicilio: ', domicilio);
          end;
          inc(p);
     end;
     close(arch_aeropuerto);
end;
begin
end.