Password

program password;
uses wincrt;
const pass = 'admin';
var kata : string;
I : integer;
jawab :char;
begin
repeat
writeln('write password:');
readln(kata);
if kata <> pass then
writeln(' wrong password')
else
begin
for I:=1 to 100 do
writeln('',I,'. true password');
end;
write('ulang lagi: [Y/N]');
readln(jawab);
until not (jawab in ['Y','y']);
end.