ПОМОГИТЕ РЕШИТЬ Задачку В ПАСКАЛЕ С Внедрением ЦИКЛА С ПОСТУСЛОВИЕМ!!!Составить программку

var

 parole, s: string;

 Count: byte;

begin

 parole := 'Земля прощай. В добрый путь!';

 Count := 0;

 repeat

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

   Readln(s);

   Count += 1

 until (s = parole) or (Count = 3);

 if Count = 3 then

 begin

   Write('Вы не прошли индентификацию. Доступ закрыт');

   Halt

 end

 else

   Write('Доступ разрешен.')

end.