Как ограничить количество попыток ввода в паскаль до 5?Какой цикл надобно

//Для образца написал программку, которая просит пользователя ввести пароль. В программке ограничено количество попыток ввода пароля до 5, то есть, если юзер с 5 раз не сумел верно ввести пароль, программка сообщает, что попытки ввода закончились.

//Для этой задачи использовал цикл c постусловием (repeat - until)

const

  attempts = 5;

  password = '12345';

var

  counter: integer;

  str: string;

begin

  counter := 0;

  repeat

     write('Введите пароль: ');

     readln(str);

     if not(str = password) then

     begin    

        counter := counter + 1;

        writeln('[неверный пароль] осталось попыток: ', attempts - counter);

        writeln();

     end;

     if (counter = attempts) then

     begin

        writeln('Попытки ввода закончились!');

        break;

     end;

  until (str = password);

  if (str = password) then

     writeln('Вы ввели верный пароль!');

end.