program numconv;

{$APPTYPE CONSOLE}
uses
  SysUtils;

const
  input: string = '9322';

function getnum_0_9 (digit, pol: char): string;
const
  data: array['0'..'9','0'..'1'] of string =
    (
      ('', ''),
      ('один', 'одна'),
      ('два', 'две'),
      ('три', 'три'),
      ('четыре', 'четыре'),
      ('пять', 'пять'),
      ('шесть', 'шесть'),
      ('семь', 'семь'),
      ('восемь', 'восемь'),
      ('девять', 'девять')
    );
begin
  getnum_0_9 := data[digit, pol];
end;

function getnum_10_19 (digit: string): string;
const
  data: array[10..19] of string =
    (
      'десять',
      'одиннадцать',
      'двенадцать',
      'тринадцать',
      'четырнадцать',
      'пятнадцать',
      'шестнадцать',
      'семнадцать',
      'восемнадцать',
      'девятнадцать'
    );
var
  code : integer;
  int: integer;
begin
  val(digit, int, code);
  getnum_10_19 := data[int];
end;

function getnum_20_90 (digit: char): string;
const
  data: array['0'..'9'] of string =
    (
      '',
      '',
      'двадцать',
      'тридцать',
      'сорок',
      'пятьдесят',
      'шестьдесят',
      'семьдесят',
      'восемьдесят',
      'девяносто'
    );
begin
  getnum_20_90 := data[digit];
end;

function getnum_100_900 (digit: char): string;
const
  data : array['0'..'9'] of string =
    (
      '',
      'сто',
      'двести',
      'триста',
      'четыреста',
      'пятьсот',
      'шестьсот',
      'семьсот',
      'восемьсот',
      'девятьсот'
    );
begin
  getnum_100_900 := data[digit];
end;

function getnum_thousand (digit: char): string;
const
  data : array['0'..'9'] of string =
    (
      '',
      'тысяча',
      'тысячи',
      'тысячи',
      'тысячи',
      'тысяч',
      'тысяч',
      'тысяч',
      'тысяч',
      'тысяч'
    );
begin
  getnum_thousand := data[digit];
end;

var
  output: string;

begin
//  input[1] - тысячи

  if (input[1] > '0') then
  begin
    output := getnum_0_9(input[1], '1') + ' ' + getnum_thousand(input[1]) + ' ';
  end;

//  input[2] - сотни
  if (input[2] > '0') then
  begin
    output := output + getnum_100_900(input[2]) + ' ';
  end;

//  input[3] - сотни
  if (input[3] > '0') then
  begin
    if (input[3] < '2') then
    begin
      output := output + getnum_10_19(input[3]+input[4]);
    end
    else
    begin
      output := output + getnum_20_90(input[3]) + ' ';
//  input[4] - единицы
      if (input[4] > '0') then
      begin
        output := output + getnum_0_9(input[4], '0');
      end;
    end;
  end
//  input[4] - единицы
  else
  begin
    output := output + getnum_0_9(input[4], '0');
  end;
  writeln('число: ' + input + '. литерный вид: ' + output);
  readln;
end.

input: string = '9322';

input: string = '0167';

program litout
{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  input: string = '9554';

var
  i: integer;
  code : integer;
  int: integer;

begin
  // пробегаем по числу
  for i := 0 to 3 do
  begin
    // преобразуем символ в соответствующее число
    val(input[i], int, code);
    // печатаем
    write(chr(int+48));
  end;
  readln;
end.