var
DataModule2: TDataModule2;
Id_tovar: integer;
implementation
function SummaString(m: real): string;
Var
por : array[0..4,0..2] of string;
por1: array[0..0,0..2] of string;
a : array[0..19] of string;
a1 : array[0..19] of string;
b1 : array[0..9] of string;
c : array[0..9] of string;
s : string;
p : integer;
mul : real;
l1 : integer;
pos_rub: integer;
begin
por[0,0]:='рубль '; por[0,1]:='рубля '; por[0,2]:='
рублей ';
por[1,0]:='тысяча '; por[1,1]:='тысячи ';
por[1,2]:='тысяч ';
por[2,0]:='миллион '; por[2,1]:='миллиона ';
por[2,2]:='миллионов ';
por[3,0]:='миллиард '; por[3,1]:='миллиа
ﺍ
рда ';
por[3,2]:='миллиардов ';
por[4,0]:='триллион '; por[4,1]:='т
ﺍ
риллиона ';
por[4,2]:='триллионов ';
por1[0,0]:='копейка '; por1[0,1]:='копейки ';
por1[0,2]:='копеек ';
a[0]:=' '; a[1]:='один '; a[2]:='два '; a[3]:='т
ﺍ
ри ';
a[4]:='четыре ';
a[5]:='пять '; a[6]:='шесть '; a[7]:='семь ';
a[8]:='восемь ';
a[9]:='девять '; a[10]:='десять '; a[11]:='одиннадцать
';
a[12]:='двенадцать '; a[13]:='т
ﺍ
ринадцать ';
a[14]:='четырнадцать ';
a[15]:='пятнадцать '; a[16]:='шестнадцать ';
a[17]:='семнадцать ';
a[18]:='восемнадцать '; a[19]:='девятнадцать ';
a1[0]:=' '; a1[1]:='одна '; a1[2]:='две '; a1[3]:='три
';
a1[4]:='четы
ﺍ
ре '; a1[5]:='пять '; a1[6]:='шесть ';
a1[7]:='семь ';
a1[8]:='восемь '; a1[9]:='девять '; a1[10]:='десять ';