[serka]

hola a todos buenos dias, tardes o noches

Me pueden ayudar con este código estoy al atrapado en su logica me sería de utilidad su generosa ayuda:

Código Delphi [-]
var
  nombre, identificar:String;
  identificacion, pasidentificar, pass2:Integer;
  nompass, password:Boolean;
begin

    (* Porgrama Principal *)

    write('Ingrese su nombre por favor: ');      // Modulo de Entrada
    readln(nombre);

    identificar:= 'Cesar';
    nompass:= (nombre = identificar);
    identificarpasidentificar:=
    pass2:= 1234;
    password:= (pasidentificar = pass2);

        if nompass then begin
              write('Ingrese su contasena por favor: ');
              readln(pasidentificar);

                  if password then begin
                      writeln('Bienvenido hermano entre por favor');
                  end else begin
                      writeln('Contrasena Incorrecta');
                  end;
                  
        end else begin
              writeln('Ese NO es tu nombre');
        end;
    readln
end.

sin mas por el momento y en espera de su generosa ayuda

serka