Написать программу паскаль вводится пароль программа получает от пользователя пароль и сравнивает со своим пароль можно вводить 5 раз иначе доступ запрещён

P,g i:integer;
writeln('придумайте пароль');
readln(p);
writeln('введите пароль');
readn(g)
for i:=5 do
If (g=p) then
begin
writeln('пароль верный');
break
else
writeln('пароль неверный')