Довідник : одиниці вимірювання, система числення, час у різних країнах

else

if (i=10)and(not IsRange1019) then sResult:=sResult+'один '

else

sResult:=sResult+'один'{ин};

if IsRange1019 and (i=13) then

sResult:=sResult+'адцять'+suffBL

else

if IsRange1019 then sResult:=sResult+suffNA

else sResult:=sResult+suffBL;

end;

end;

if (currNum='2') then

begin

sResult:=sResult+C2;

if (i=10)and(IsRange1019=False) then sResult:=sResult+ii

else

if (i=10)or(IsRange1019) then sResult:=sResult+aa

else sResult:=sResult+{aa}ii;

if IsRange1019 then sResult:=sResult+suffNA

else sResult:=sResult+suffBL;

end;

if (currNum='3') then

begin

sResult:=sResult+C3;

if IsRange1019 then sResult:=sResult+suffNA