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

C4:string='чотир';

C5:string='п''ят';C6:string='шіст';

C7:string='сім';

C8:string='вісім';

C9:string='дев''ят';

var

i:byte;

sAmount,sdInt,sdDec:string;

IsMln,IsTha{,IsDcm},IsRange1019:boolean;

currNum,endMlx,sResult:string;

begin

if (amount<0)or(amount>999999999999.99) then

begin

Result:='<<<< Помилка в діапазоні >>>>';

Exit;

end;

if amount=0 then

begin

Result:='Нуль';

Exit;

end;

STR(Amount:16:2,sAmount);

sdInt:=Copy(sAmount,1,13);

sdDec:=Copy(sAmount,15,2);

IsMln:=false;