Написать программу, формирующую словарный эквивалент введённому трёхзначному натуральному числу- Pascal(Паскаль)

например:
ввод:105
вывод: сто пять

uses crt;
var st:string;
    n,i:longint;
    c:array[1..4]of integer;
begin
clrscr;
repeat
write('Введите трехзначное число n=');
readln(n);
until(n>99)and(n<1000);
st:='';
case n div 100 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;
if (n mod 100) div 10<>1 then
 begin
  case (n mod 100) div 10 of
  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 10 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
 else
 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+' девятнадцать';
 end;
writeln(st);
readln
end.