Membuat aplikasi Login dengan Pascal

Login form dasar terdiri dari Username dan Password, jika menggunakan syntax readln(var);, dijamin password akan terlihat seperti teks biasa, hahaha. Lalu bagaimana cara mengubahnya menjadi simbol asterisk (*) atau simbol lain ?
Kita akan menggunakan readkey; sebagai pengganti readln; namun dengan sedikit kustomisasi agar terlihat seperti login form umumnya.

Source Code :

program Login;

uses crt;

var username, password : String;

function tutupinPassword : String;
var c : char;
tmp : String;
begin
 tmp:=''; 
 repeat begin
  c := readkey;       
  if(c<>#13) and (c<>#8) then begin 
   tmp := tmp + c;     
   write('*');      
  end;        
  if(c = #8) then begin    
   tmp:='';      
   gotoXY(21,2);     
   clrEOL;       
   gotoXY(21,2);     
  end;
 end until c = #13;      
 
 tutupinPassword := tmp;
end;

begin
 clrscr;
 write('Masukkan Username : ');
 readln(username);
 write('Masukkan Password : ');
 password := tutupinPassword;   
           
 if (username = 'isengkoding') and (password = 'masukaja') then begin
  clrscr;
  writeln('Selamat datang ',upcase(username));  
  end 
 else begin
  clrscr;
  writeln('Username atau password salah :p');  
 end;
 
 readln;
end.

Hasil :

Link Github : https://github.com/Haidarns/Pascal/tree/master/Login