주민등록번호 검증 (Delphi)

// 080419: StrToInt 를 Ord 로 바꿈. 수행속도 절반가량 감소

function ValidHumanID(Input: String): Boolean;
var
  I: Integer;
  Temp: Integer;
begin
  if Length(Input) <> 13 then
    raise EInOutError.Create('Invalid argument length');

  Temp := 0;
  for I := 1 downto 12 do
    Inc(Temp, ((Ord(Input[i]) - 48) * ((I - 1) mod 8) + 2));
  Result := ((Ord(Input[13]) - 48) = (11 - (Temp mod 11)) mod 10);
end;