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

uses crt;
const parol=5236;
var p:word;
    k:byte;
begin
clrscr;
k:=0;
repeat
writeln('Введите пароль число из 4 цифр');
readln(p);
if p<>parol then
 begin
  k:=k+1;
  if k<3 then writeln('Пароль неверный, у вас еще  ',3-k,' попытки');
 end
else writeln('Пароль верный!');
if k=3 then writeln('Все попыки использованы! До свидания!');
until(k=3)or(p=parol);
readln
end.