Работа с вводом пароля

[microlab]

Составить программу которая будет запращивать пароль до тех пор пока не введут правильный или кол-во попыток не превысит 5. С каждым вводом пароля выводится кол-во оставшихся попыток. Спасибо.

[Mad_Cat]

const
pass='password';
k=5;
var i:integer;
s:string;
begin
i:=0;
s:='';
repeat
Writeln('InpuT pass');
writeln('Remaining ',k-i,' attempts');
Write('Pass:');readln(s);
i:=i+1;
until (i=k) or (s=pass);
if S=pass then Writeln('Access is restricted')
else Writeln('Access Denied');
readln;
readln;
end.

[unbanned]

а можно таким способом

uses
  crt;

var
  a: string;

function chek(const pas: string; att: integer): boolean;
var
  c, f: char;
  s: string;
  k: integer;
  charsLt: set of char;
  charsK: set of char;
  numbers: set of char;
begin
  k := 1;
  charsLt := ['А'..'я'];
  numbers := ['0'..'9'];
  charsK := ['A'..'z'];    
  while k <= att do 
  begin
    c := ' ';
    f := ' ';
    s := '';
    writeln('Введите пароль:');
    while c <> #13 do 
    begin
      write(s);
      c := readkey;
      if (c in charsLt) or (c in charsk) or (c in numbers) then s := s + c;
      if c = #8 then delete(s, length(s), 1);
      clrscr;
      writeln('Введите пароль:');    
    end;
    k := k + 1;
    writeln(s);
    if s = pas then 
    begin
      writeln('Пароль верный');
      result := true;
      break;
    end
    else 
    begin
      if k - 1 <> att then 
      begin
        writeln('Пароль не верный, повторите ввод');
        writeln('Осталось ', (att + 1) - k, ' попытки(-ок)...');
        if k = 2 then  writeln('Для повтора ввода нажмите любую клавишу, для выхода нажмите "Esc"');
        f := readkey;      
        if f = #27 then
        begin
          result := false;
          exit;
        end;
      end
      else
      begin
        writeln('Пароль не верный, попытки исчерпаны');
        writeln('Для выхода нажмите любую клавишу');
        readkey;
        exit;
      end;   
    end;
    clrscr;
  end;
end;

begin
  a := 'password';
  chek(a, 5);
end.