Пароль на гребанном паскале

Program n1;
var a:string; i:integer;
begin
writeln('Введите пароль');
while i<5 do begin
readln(a);
if a = 'password' then begin
writeln('Пароль верен!');
i:=5
end
else
writeln('Пароль неверен!');
i:= i+1;
end;
end.