Algoritam za kontrolu JMBG-a

[ captPicard @ 21.09.2009. 20:38 ] @

Netko je na drugom forumu postavio pitanje o validaciji JMBG-a, pa rekao da dam ja svoj algoritam (nije baš moj, već sam bio dobio dva prijedloga za izmjenu i njih sam ubacio :-) ). Zanima me da li se može bolje/brže?

Code:
function KontrolaJMBG(s: string): Boolean;
var
   a: array[2..14] of integer;
   iKont, iZbroj, i: integer;
begin

   for i := 2 to 14 do
     a[i] := StrToInt( s[i - 1] );

   for i := 1 to 6 do
   begin
     iKont := (8 - i) * (a[i + 1] + a[i + 7]);
     iZbroj := iZbroj + iKont;
   end;

   iZbroj := 11 - (iZbroj mod 11);

   Result := (iZbroj = a[14]);
end;