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

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 thanh cong!')
else if mk<>pass then
repeat
dem:=dem+1;
delay(500);
write('Sai mat khau, nhap lai: '); readln(n);
if (dem=2) and (n<>mk) 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 opass<>npass 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 thanh cong!');
if m=npass then writeln('Dang nhap thanh cong!');
delay(800);
if dem=4 then writeln('Dang nhap that bai!');
if n=mk then writeln('Dang nhap thanh cong!');
end
else if (tl='n') or (tl='N') then
begin
delay(800);
write('Nhap mat khau: '); readln(wr);
if wr<>mk 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 thanh cong!')
else if ur=mk then writeln('Dang nhap thanh cong!');
end;
readln
end.