Написать программу паскаль вводится пароль программа получает от пользователя пароль и сравнивает со своим пароль можно вводить 5 раз иначе доступ запрещён

Предыдущий
вопрос Следующий
вопрос

program PasswordVerification;

var
password: string;
correctPassword: string;
attempts: integer;

begin
correctPassword := 'mypassword';
attempts := 0;

repeat
write('Enter the password: ');
readln(password);

until (password = correctPassword) or (attempts = 5);

if password = correctPassword then
begin
writeln('Access granted.');
end
else
begin
writeln('Access denied. Too many incorrect attempts.');
end;

end.