> meta klaida...  :(

  Vadinasi, palaiko tik tūpą konstantų sintaksę maždaug


const
   mvien1 = 'vienas';
   mvien2 = 'du';


  Bet šituo keliu nieko gero nepasieksim, pakanka konstantą-masyvą iš string'ų
paversti funkcija, grąžinančia atitinkamą stringą:


function mvien(intsk: Integer): String;
begin
    case intsk of
        1: Result := 'vienas';
        2: Result := 'du';
        3: Result := 'trys';
        .
        :
    end;
end

  .
  :

  if (n6 > 0) then
  begin
    if (n6 > 1) then
      strss := mvien(n6)+' '+'šimtai'
    else
      strss := 'vienas šimtas';
  end;


  Portink. Daugiau darbo negu sudėtingumo.

-- 
  saimhe