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

//Написал простейшую программу для наглядного примера. Суть в том, что ограничено число попыток ввода неправильного пароля

//attempts - количество попыток, counter - счетчик неудачных попыток

const

  attempts = 3;

  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.