Быстрее плез,срочноPascal

var a: string;
      s: integer;
begin
s := 0;
write ('Привет! Введи пароль: ');
readln (a);
while a<>'qwerty' do
  begin
   s := s+1;
   write ('Не угадал! Введи пароль: ');
   readln (a)
end;
writeln ('Теперь пароль введён верно! Количество попыток: ',s)
end.