Program Login dalam Pascal

Teman-teman semua pasti tahu tentang Login, login adalah akses masuk situs web dimana kita memiliki account di dalamnya. seperti gambar :

Login merupakan program yang didalamnya berfungsi untuk memanggil database website tertentu yang telah disimpan,
disini saya ada contoh bahasa program login dalam bahasa pascal :

program login;
uses crt;
var
user,password,dtuser,dtpassword,kembali: string[30];
begin
clrscr;
write ('email: '); readln(user);
write ('password: '); readln(password);

dtuser:='jihan_girl@yahoo.com';
dtpassword:='1234567';

if (dtuser=user) and (dtpassword=password) then
   begin write ('selamat datang ...'); readln; end
else
   begin writeln ('user dan password yang anda masukkan tidak cocok...');
   readln; end;
readln;
end.

bahasa pascal ini bisa di coba pada program pascal, ingin mencoba download Turbo Pascal 0.7