Вывести словесное описание числа на экран

var st:string;
    n,i:word;
    var c:array[1..3]of byte;
begin
repeat
write('Введите число от 1 до 999 n=');
read(n);
until (n>0)and(n<1000);
st:='';
c[1]:=n div 100;
c[2]:=n div 10 mod 10;
c[3]:=n mod 10;
st:='';
case c[1] of
 0:st:=st;
 1:st:=st+'Сто';
 2:st:=st+'Двести';
 3:st:=st+'Триста';
 4:st:=st+'Четыреста';
 5:st:=st+'Пятьсот';
 6:st:=st+'Шестьсот';
 7:st:=st+'Семьсот';
 8:st:=st+'Восемьсот';
 9:st:=st+'Девятьсот';
end;
case (n mod 100) of
 10:st:=st+' десять';
 11:st:=st+' одиннадцать';
 12:st:=st+' двенадцать';
 13:st:=st+' тринадцать';
 14:st:=st+' четырнадцать';
 15:st:=st+' пятнадцать';
 16:st:=st+' шестнадцать';
 17:st:=st+' семнадцать';
 18:st:=st+' восемнадцать';
 19:st:=st+' девятнадцать';
 else
  begin
   case c[2] of
    0:st:=st+'';
    2:st:=st+' двадцать';
    3:st:=st+' тридцать';
    4:st:=st+' сорок';
    5:st:=st+' пятьдесят';
    6:st:=st+' шестьдесят';
    7:st:=st+' семьдесят';
    8:st:=st+' восемьдесят';
    9:st:=st+' девяносто';
   end;
   case c[3] of
    1:st:=st+' один';
    2:st:=st+' два';
    3:st:=st+' три';
    4:st:=st+' четыре';
    5:st:=st+' пять';
    6:st:=st+' шесть';
    7:st:=st+' семь';
    8:st:=st+' восемь';
    9:st:=st+' девять';
   end;
 end;
end;
if n<100 then delete(st,1,1);
writeln(st);
end.