const pass='PassWord';
var s:string;
    b:boolean;
begin
    b:=false;
    while b=false do
    begin
        write('Nhap Pass: ');
        readln(s);
        if s=pass then b:=true
        else writeln('Sai Pass! Nhap lai!');
        writeln('--------------------------');
    end;
    writeln('Da nhap dung pass!');
    readln;
end.