{************************************************************************
*                                                                       *
*                                                                       *
*        Password                                v1.0                   *
*        Copyright (c) Express Software 1998.                           *
*        All Rights Reserved.                                           *
*                                                                       *
*                                                                       *
************************************************************************}
program PasswordDemo;

var
  Password, Passkey: string;
  label top;

begin
  Password := 'I am God';
top:
  write('Password: ');
  readln(Passkey);
  if (Passkey = Password) then
    begin
      writeln('Password correct');
    end
  else
    begin
      writeln('Incorrect password');
      goto top;
    end;
end.

    Source: geocities.com/xsaintx69/source

               ( geocities.com/xsaintx69)