Viết chương trình kiểm tra mật khẩu nhập vào, cho đăng nhập tối đa 5 lần. Yêu cầu sử dụng cấu trúc lặp while. Mn giúp tui nhaaaaa ~

uses crt;
var s,mk:string; dem:longint;
begin
clrscr;
   mk:='toidicodedao';
   while s<>mk do 
      begin
         write('Nhap mat khau: ');readln(s);
         if s=mk then writeln('   Dang nhap thanh cong')
            else writeln('   Mat khau khong dung'); 
         dem:=dem+1;
         if dem=5 then break; 
      end;
   if s<>mk then writeln('Qua so lan dang nhap');
readln
end.

var mk,s:string;
    d:integer;
begin
mk := 'WHILE';
d:=1;
while (s <> mk) and (d <= 5) do
begin
 readln(s);
 if (s <> mk) then
   begin
     writeln('INCORRECT');
     writeln('Ban con ',5-d,' lan nhap');
   end;
 if (s = mk) and (d <= 5) then
   begin
    writeln('CORRECT');
    readln;
    exit;
   end;
 d:=d+1;
 if (d=6) then writeln('That bai');
end;
readln;
end.