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

Надобно всё сделать либо только прогу написать?

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