Необходимо записать введенную сумму денег словами

function Text(x: integer): String;
const   
odin: array of String = ('десять','одиннадцать', 'двенадцать','тринадцать','четырнадцать','пятнадцать',
 'шестнадцать','семнадцать','восемнадцать','девятнадцать');
c: array of array of String = (
( 'один', 'десять', 'сто', 'одна тысяча' ),
( 'два', 'двадцать', 'двести', 'две тысячи' ),
( 'три', 'тридцать', 'триста', 'три тысячи' ),
( 'четыре', 'сорок', 'четыреста', 'четыре тысячи' ),
( 'пять', 'пятьдесят', 'пятьсот', 'пять тысяч' ),
( 'шесть', 'шестьдесят', 'шестьсот', 'шесть тысяч' ),
( 'семь', 'семьдесят', 'семьсот', 'семь тысяч' ),
( 'восемь', 'восемьдесят', 'восемьсот', 'восемь тысяч' ),
( 'девять', 'девяносто', 'девятьсот', 'девять тысяч' ));
 
begin  
 var s := x.toString;  //  1 > 4   2 > 3 3 > 2 4>1
 var (n, sr, z) := (s.Length, '', '','');
 for var i := s.Length downto 1 do
   if ((i = n-1) and (n>1) and (s[^2] ='1')) then 
     Result := odin[Strtoint(s[n])]
   else 
     if (s[i] <> '0')  then Result := c[Strtoint(s[i])-1, n-i] +' '+ Result;
 if (n > 1) and (s[^2] = '1') then 
   sr := ' рублей'
 else
    case s[n] of
      '0','5'..'9': sr := 'рублей';
      '1': sr := 'рубль';
      '2'..'4': sr := 'рубля';
    end;      
  Result += sr;
end;
 
Begin
  Text(ReadlnInteger('Введите число:')).Println;;
end.

...
begin  
 var s := x.toString;  
 var (n, sr) := (s.Length, 'рублей');
 for var i := s.Length downto 1 do
   if ((i = n-1) and (n>1) and (s[^2] ='1')) then 
     Result := odin[Strtoint(s[n])]+' '
   else 
     if (s[i] <> '0')  then Result := c[Strtoint(s[i])-1, n-i] +' '+ Result;
 if not((n > 1) and (s[^2] = '1')) then 
    case s[n] of
      '1': sr := 'рубль';
      '2'..'4': sr := 'рубля';
    end;      
  Result += sr;  
end;
...