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

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