Написать программу преобразования цифр в слова

uses crt;
var c:byte;
begin
clrscr;
repeat
write('Введите цифру с=');
readln(c);
until c in [0..9];
case c of
0:write('ноль');
1:write('один');
2:write('два');
3:write('три');
4:write('четыре');
5:write('пять');
6:write('шесть');
7:write('семь');
8:write('восемь');
9:write('девять');
end;
end.

program sixth;
var n,k:word;
begin
  writeln('Введите число до 999 ');
  readln(n);
  writeln(n);
  k:=n div 100;
  n:=n mod 100;
  case k of
    9:write('девятьсот ');
    8:write('восемьсот ');
    7:write('семьсот ');
    6:write('шестьсот ');
    5:write('пятьсот ');
    4:write('четыреста ');
    3:write('триста ');
    2:write('двести ');
    1:write('сто ');
  end;
  k:=n div 10;
  if k<>1 then n:=n mod 10;
  case k of
    9:write('девяносто ');
    8:write('восемьдесят ');
    7:write('семьдесят ');
    6:write('шестьдесят ');
    5:write('пятьдесят ');
    4:write('сорок ');
    3:write('тридцать ');
    2:write('двадцать ');
  end;
  case n of
    19:write('девятнадцать ');
    18:write('восемнадцать ');
    17:write('семнадцать ');
    16:write('шестнадцать ');
    15:write('пятнадцать ');
    14:write('четырнадцать ');
    13:write('тринадцать ');
    12:write('двенадцать ');
    11:write('одиннадцать ');
    10:write('десять ' );
    9:write('девять ' );
    8:write('восемь ');
    7:write('семь ');
    6:write('шесть ');
    5:write('пять ');
    4:write('четыре ');
    3:write('три ');
    2:write('два ');
    1:write('один ');
  end;
  readln;
end