[serka]

Muchas gracias por sus respuestas ya corregí mi problema aquí les pongo el código:

Código Delphi [-]
// procedimiento de password
procedure password;
var
  clave: Boolean;
  pasidentificar: Integer;
  pass2: Integer;
begin
  Writeln('Ingrese su clave');
  ReadLn(pasidentificar);
  pass2 := 1234;
  clave := pasidentificar=pass2;

  if clave then
    begin
      Writeln('Bienvenido mi hermano');
    end
    else
    begin
      Writeln('Contrasena incorrecta');
    end;
end;

  // Programa principal  
var
  identificar: String;
  nombre: String;
  nompass: Boolean;
begin
  Writeln('Ingrese su nombre');
  ReadLn(nombre);
  identificar := 'Cesar';
  nompass := nombre=identificar;

    if nompass then
    begin
        password();
    end
    else
    begin
        Writeln('Ese no es tu nombre');
    end;
  Readln;
End.

De nuevo muchas gracias por su ayuda

sin mas por el momento

serka