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

ov:string='ів';{ов}

C2:string='дв';

C3:string='тpи';

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;

IsTha:=false;