Cach đặt pass nè chạy thử coi sao (ok rồi)

program datpass;
uses crt;
var pass:string[6];
begin
clrscr;
repeat
write('Xin nhap vao mat khau:');
readln(pass);
until pass='ttthcn';
write('Ban da nhap dung mat khau xin chuc mung ban');
readln;
end.


Nhớ nhập đúng mật khâu nha không là khỏi thoát ngoài tắt nó đâu nha. Có nói trước đó nha.