Выбрать пароли, соответствующие заданным условиям

function Check1(const s: String): Boolean;
begin
  Check1:=Length(s) in [8..12];
end;
 
function Check2(const s: String): Boolean;
const Rows: array [0..2] of String[10] = ('QWERTYUIOP', 'ASDFGHJKL', 'ZXCVBNM');
var i, j: Integer; t: String[2];
begin
  Check2:=False;
  for i:=1 to Length(s)-1 do begin
    t:=UpCase(s[i])+UpCase(s[i+1]);
    for j:=Low(Rows) to High(Rows) do
      if Pos(t,Rows[j])<>0 then Exit;
  end;
  Check2:=True;
end;
 
function Check3(const s: String): Boolean;
var i, k1, k2: Integer;
begin
  k1:=0; k2:=0;
  for i:=1 to Length(s) do if (s[i] in ['0'..'9']) then
    if Odd(Ord(s[i])) then Inc(k1) else Inc(k2);
  Check3:=(k1=3) xor (k2=2);
end;
 
function Check4(const s: String): Boolean;
begin
  Check4:=True;
  if (Pos('A',s)<>0) or (Pos('a',s)<>0) then Check4:=Pos('!',s)<>0;
end;
 
function Check(const s: String): Boolean;
begin
  Check:=Check1(s) and Check2(s) and Check3(s) and Check4(s);
end;
 
var s: String;
begin
  Write(': '); ReadLn(s);
  while s<>'' do begin
    WriteLn('"',s,'": ',Check(s));
    Write(': '); ReadLn(s);
  end;
end.

  for i:=1 to Length(s)-1 do begin

  Check3:=(k1=3) and (k2=0) or (k1=0) and (k2=2);