{--------------------
 Autor: Vanessa Thaisa
 Data: 01/12/2011
 --------------------}

Program sistema_teste;
 var
    user,password,source:string;
    user_db,password_db,source_db:string;
    acesso,sair:boolean;
    opcao:char;

 Begin
    user_db:='admin';
    password_db:='admin';
    source_db:='11';
    sair:=false;

    repeat
        repeat
            ClrScr;
            writeln('1. Efetuar login no sistema');
            writeln('2. Sair');
            write('Opção: ');
            readln(opcao);

            if (opcao='1') then
            begin
                ClrScr;
                writeln('--------Tela de Login----- ');

                write ('Digite o nome de usuário: ');
                readln (user);

                write ('Digite a senha: ');
                readln (password);

                write ('Digite o código de segurança: ');
                readln (source);

                if (user<>user_db) or (password<>password_db) or (source<>source_db) then
                begin
                    writeln ('Acesso negado. Verifique seus dados');
                    acesso:=false;
                    readln;
                    end;
                    if (user=user_db) and (password=password_db) and (source=source_db) then
                    acesso:=true;
                end;

                if (opcao='2') then
            sair:=true;

         until (acesso) or (sair);

        while acesso do
        begin
            clrscr;
            writeln ('Bem vindo ao painel de controle,');
            writeln ('Espero que use com sabedoria.');
            writeln;
            writeln('1. Alterar nome do usuario');
            writeln('2. Alterar a senha');
            writeln('3. Alterar o código de segurança');
            writeln('4. logout do usuario');
            writeln('5. Sair do sistema');
            write('Opcao: ');
            readln(opcao);

            clrscr;
            case opcao of
                '1':begin
                    writeln('1. Alterar nome do usuario');
                    write ('Digite o novo nome de usuário: ');
                    readln (user_db);
                end;
                '2':begin
                    writeln('2. Alterar a senha');
                    write ('Digite a nova senha: ');
                    readln (password_db);

                end;
                '3':begin
                    writeln('3. Alterar o código de segurança');
                    write ('Digite o novo código de segurança: ');
                    readln (source_db);
                end;
                '4':acesso:=false;
                '5': begin
                    acesso:=false;
                    sair:=true;
                end;
            end;
        end;
    until sair;

    writeln('Sistema encerrado...');
    readln;
 End.