Muchas gracias por sus respuestas ya corregí mi problema aquí les pongo el código:
Código Delphi
[-]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;
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