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

begin

if currNum='1' then IsRange1019:=true;

if currNum='2' then sResult:=sResult+C2+aa+suffDCT+suffBL;

if currNum='3' then sResult:=sResult+C3+suffDCT+suffBL;

if currNum='4' then sResult:=sResult+'соpок ';

if currNum='5' then

sResult:=sResult+C5+suffMZ+suffDCM+suffBL;

if currNum='6' then

sResult:=sResult+C6+suffMZ+suffDCM+suffBL;

if currNum='7' then

sResult:=sResult+C7+suffMZ+suffDCM+suffBL;

if currNum='8' then

sResult:=sResult+C8+suffMZ+suffDCM+suffBL;

if currNum='9' then

sResult:=sResult+'дев''ян'+oo+st+oo+suffBL;

end;

if i in [4,7,10,13] then {одиниці}

begin

if (currNum='0') then

if IsRange1019 then sResult:=sResult+suffDCM+suffMZ+suffBL;

if (currNum='1') then

begin

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

else begin

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