Как ограничить количество попыток ввода в паскаль до 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.