Turbo Pascal Window: Password

Kadang untuk proteksi , password merupakan hal yang sangat penting. Dan ternyata, password juga dibuat menggunakan bahasa program. Contohnya sebagai berikut:
program password;
uses wincrt
var
    x:string;
begin
    clrscr;
    write('masukkan password! : ');readln(x);
    while x <> 'ampera' do
    begin
    clrscr;
    writeln('password anda salah');
    writeln;
    write('masukkan password! :');readln(x);
    end.
clrscr;
writeln('password anda benar!');
readln;
end.

Outputnya Jika kita memasukkan Kata yang salah (contoh di atas: bukan AMPERA) maka akan memunculkan pesan 'Password Anda Salah!' Kemudian perintah baru untuk memasukkan password kembali. Jika kita mengetikkan AMPERA maka akan keluar perintah 'Password Anda Benar.' ^^