Составьте программу запроса пароля , пока не будет введён пароль верно . в программе предусмотреть счётчик неправильных вода поролев . програма с циклом пост условия

Var k:integer; a:string;
begin
  repeat
  writeln('Введите пароль');
  readln(a);
  if a<>'Пароль' then k:=k+1;
  until a='Пароль';
  writeln('Пароль принят');
  writeln('Число неверных попыток - ',k);
  readln
end.