Membuat Algoritma password pada Pascal

Algoritma ini cara kerjanya adalah kita harus memasukan sandi, apabila kita 3 kali salah dalam memsukan sandi maka program akan dihentikan program ini saya kutip dari bukunya Bapak Rinaldi Munir, algoritma nya adalah sebagai berikut:

lihat code

algoritma kata sandi
deklarasi
const
password='rahasia'
sandilewat:string
sah:boolean
k:integer

deskripsi
k<-1
sah<-false
repeat
read(sandilewat)
if sandilewat=password then
sah<-true
else
k<-k+1
endif
until(sah) or (k>3)
endif
endfor