Составить программу, которая запрашивает пароль (например, четырехзначное число) до тех пор, пока он не будет правильно введен — Pascal(Паскаль)

program chisla;
uses crt;
var a,b:integer;
begin
repeat
readln('Задайте пароль', a);
until (a>=1000)  and(a<=9999);
writeln('введите пароль');
repeat
readln(b);
until b=a;
writeln('верно');
readln;
end.