function NumberToWord(num: Integer): string;
const
ones: array[0..9] of string = ('Không', 'Một', 'Hai', 'Ba', 'Bốn', 'Năm', 'Sáu', 'Bảy', 'Tám', 'Chín');
tens: array[2..9] of string = ('Hai Mươi', 'Ba Mươi', 'Bốn Mươi', 'Năm Mươi', 'Sáu Mươi', 'Bảy Mươi', 'Tám Mươi', 'Chín Mươi');
var
word: string;
begin
if num = 0 then
Result := 'Không'
else
begin
if num < 0 then
begin
word := 'Trừ ';
num := Abs(num);
end;
if num < 10 then
word := word + ones[num]
else if num < 100 then
begin
word := word + tens[num div 10];
if num mod 10 <> 0 then
word := word + ' ' + ones[num mod 10];
end
else
word := 'Số quá lớn';
Result := word;
end;
end;