Program Mensajeria;

Type
    ArbUsuarios=^TipoNodoArbol;
    TipoNodoArbol= record
    TUser:string[8];
    TPass:string[8];
    MenoresIguales, Mayores:ArbUsuarios;
end;

    {ListaConvers=^TipoNodoLista;
    TipoNodoLista= record
    Codigo:integer;
    Usuario1, Usuario2:ArbUsuarios;
    Chat:ListaMensajes;
    Sig:ListaConvers;
end;

    ListaMensajes=^TipoNodoMensajes;
    TipoNodoMensajes = record
    Fecha:string;
    Hora:string;
    Texto:string;
    UsuarioE:ArbUsuarios;
    Leido:boolean;
    Sig:ListaMensajes;
end; }

Procedure Menu1 (Var Arbol:ArbUsuarios; Usuario:TUser; Password:TPass);
Var
    Numero:integer;
Begin
    //abrir archivos
    Writeln('1. Login:');
    Writeln('2. Nuevo Usuario:');
    Writeln('3. Ver Usuarios hiperconectados:');
    Writeln('4. Salir:');
    Readln(Numero);
    //creo que iria un case of
    IF (Numero = 1) then
        Login(Arbol);
        //Menu2 ();
    else (Numero = 2)
        NuevoUsuario(Arbol);
    else (Numero = 3)
        //UsuariosHiperconectados( );
    else (Numero = 4)
        //cerrar programa
end;

Procedure Login (Var Arbol:ArbUsuarios);
Begin
    Writeln('Ingrese su nombre de usuario');
    Readln(Usuario);
    Writeln('Ingrese su password');
    Readln(Password);
    IF (BuscarUsuario(Arbol, NUsuario) = false) or (ComprobarPassword(Arbol, Password) = false) then
        Writeln('Los datos ingresados son incorrectos');
        //borrar lo escrito en la pantalla
        Login(Arbol);
    else (BuscarUsuario(Arbol, NUsuario) = true) or (ComprobarPassword(Arbol, Password) = true)
        //Menu2();
    end;
end;

Procedure MostrarInformacion (Usuario


Procedure Menu2 ( );
Begin
    //MostrarDatos();


Function BuscarUsuario (Arbol:ArbUsuarios; NUsuario:string): boolean;
Var
    Encontrado: boolean;
Begin
    Encontrado:= false;
    If Arbol <> nil then
        Begin
            If  NUsuario <> Arbol^.TUser then
                Begin
                    BuscarUsuario (Arbol^.MenoresIguales, NUsuario);
                    BuscarUsuario (Arbol^.Mayores, NUsuario);
                end
            else
                Encontrado:= true;
        end;
    BuscarUsuario:= Encontrado;
end;


Procedure CargarArbol (Var Arbol:ArbUsuarios; Var NUsuario:string; Var NPassword:string);

Begin
    IF (Arbol = nil) then
        begin
            New(Arbol);
            Arbol^.Tuser:=NUsuario;
            Arbol^.TPass:=NPassword;
            Arbol^.Mayores:=nil;
            Arbol^.MenoresIguales:=nil;
        end
    else
        IF (NUsuario <= Arbol^.TUser) then
            CargarArbol(Arbol^.MenoresIguales, NUsuario, NPassword)
        else
            CargarArbol(Arbol^.Mayores, NUsuario, NPassword);
end;

Procedure RecibirDatos (Var Arbol:ArbUsuarios);
Var
    NUsuario:string;
    NPassword:string;
    Inicio:ArbUsuarios;
Begin
    Writeln('Ingrese el usuario (8 caracteres Maximo):');
    Readln(NUsuario);
    Inicio:=Arbol;
    If Inicio <> Nil then
        Writeln('entra');
        Begin
            While BuscarUsuario(Arbol, NUsuario) = true do
                Begin
                    Writeln('El usuario ingresado ya existe, utilize otro nombre de usuario');
                    Readln(NUsuario);
                    Arbol:=Inicio;
                end;
        end;
    writeln('Ingrese la contraseña (8 caracteres Maximo):');
    Readln(NPassword);
    CargarArbol(Arbol,NUsuario,NPassword);
end;


Procedure MostrarArbol (Arbol:ArbUsuarios);

begin
    IF Arbol <> nil then
        begin
            WriteLn(Arbol^.Tuser);
            MostrarArbol(Arbol^.Mayores);
            MostrarArbol(Arbol^.MenoresIguales);
        end;
end;

var
arbol:ArbUsuarios;

Begin
    //RecibirDatos(Arbol);
    //RecibirDatos(Arbol);
    RecibirDatos(Arbol);
    WriteLn('Los usuarios ingresados son:');
    MostrarArbol(Arbol);
end.