Chương trình nhập mật khẩu và giới hạn nhập mật khẩu bằng ngôn ngữ lập trình Pascal

Chương trình mô phỏng lại các khung nhập mật khẩu như hiện nay trên Facebook, Google, Gmail,... thay bằng ngôn ngữ lập trình bậc thấp Pascal. Đây là một dạng bài tập nâng cao nhưng làm không áp dụng được trong thực tế mà để hệ thống hóa kiến thực lập trình Pascal

program nhap_mat_khau; uses crt; var mk,pass,n,dem,npass,opass,m,u,wr,ur,tm: integer; tl: char; begin clrscr; write('Nhap mat khau moi: '); readln(mk); delay(500); write('Nhap mat khau de dang nhap: '); readln(pass); if mk=pass then writeln('Dang nhap cong!') else if mkpass then repeat dem:=dem+1; delay(500); write('Sai mat khau, nhap lai: '); readln(n); if (dem=2) and (nmk) then begin delay(800); write('Sai mat khau, ban co muon doi? Y la co, N la khong: '); readln(tl); end; until (n=mk) or (dem=4) or (tl='Y') or (tl='y') or (tl='n') or (tl='N'); if (tl='y') or (tl='Y') then begin write('Nhap mat khau moi: '); readln(npass); write('Nhap mat khau dang nhap: '); readln(opass); if opassnpass then repeat u:=u+1; write('Sai mat khau, nhap lai: '); readln(m); until (m=npass) or (u=4); if u=4 then writeln('Dang nhap that bai, ban khong the doi mat khau!'); if opass=npass then writeln('Dang nhap cong!'); if m=npass then writeln('Dang nhap cong!'); delay(800); if dem=4 then writeln('Dang nhap that bai!'); if n=mk then writeln('Dang nhap cong!'); end else if (tl='n') or (tl='N') then begin delay(800); write('Nhap mat khau: '); readln(wr); if wrmk then repeat delay(800); tm:=tm+1; write('Sai mat khau, nhap lai: '); readln(ur); until (wr=mk) or (tm=2); if tm=2 then begin delay(800); writeln('Dang nhap that bai!'); end else if wr=mk then writeln('Dang nhap cong!') else if ur=mk then writeln('Dang nhap cong!'); end; readln end