stify"> «сімнадцять», «вісімнадцять», «девятьнадцать»);
function SumToStrin (Value: String): string; s, t: string;, pp, i, k: integer;:=value; s=«0» then:=«Нуль» begin:=length (s);:=p; p> 1 then (s [p - 1]=«1») and (s [p]> «0») then begin:=b [strtoint (s [p])];:=pp - 2;;:=pp; i> 0 do begin (i=p - 3) and (p> 4) thens [p - 4] =«1» then begin:=b [strtoint (s [p - 3])] + «тисяч» + t;:=i - 2;; (i=p - 6) and (p> 7) thens [p - 7 ]=«1» then begin:=b [strtoint (s [p - 6])] + «мільйонів» + t;:=i - 2;; i> 0 then begin:=strtoint (s [i]);:=a [pi, k] + t;:=i - 1;;;;
Result:=t;;
/ / Розділяє суму на рублі і копійки:
procedure get2str (value: string; var hi, lo: string); p: integer;:=pos («,», value);:=«»; hi:= «»; p=0 then:=pos («.», value); p <> 0 then (value, p, 1); p=0 then begin:=value;:=«00» ;;; p> length (value) then begin:=value;:=«00»;; p=1 then begin:=«0»;:=value;; (p> 1) and (p 0 then begin:=«»;;;:=sumtostrin (inttostr (pr)) + «руб. »; Lo <>« 00 » then begin (lo, pr, er); er <> 0 then begin:=«»;;;:=inttostr (pr);;:=lo + « коп. »; [1]:=AnsiUpperCase (hi [1]) [1];:=hi + lo;
end;.