Написать прописью числа от 1 до 1000

uses crt;
var st:string;
    n:integer;
begin
repeat
write('Введите число от 1 до 1000 n = ');
read(n);
until (n>0)and(n<=1000);
case n of
1000:st:='одна тысяча';
else
 begin
  st:='';
  case n div 100 of
  1:st:='сто';
  2:st:='двести';
  3:st:='триста';
  4:st:='четыреста';
  5:st:='пятьсот';
  6:st:='шестьсот';
  7:st:='семьсот';
  8:st:='восемьсот';
  9:st:='девятьсот';
  end;
  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 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
   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;
 end;
end;
writeln(st);
end.