Вывести число прописью

program propis;
var st:string;
    n:integer;
begin
write('vvesti chislo ot 1 do 1000  = ');
readln(n);
 
case n of
1000:st:='tisyacha';
 10:st:='desyt';
 11:st:='odinadtcat';
 12:st:='dvenadtcat';
 13:st:='trinadtcat';
 14:st:='chetirnadtcat';
 15:st:='pyatnadtcat';
 16:st:='shestnadtcat';
 17:st:='semnadtcat';
 18:st:='vosemnadtcat';
 19:st:='devyatnadtcat';
 
else
case n div 100 of
  1:st:='sto';
  2:st:='dvesti';
  3:st:='trista';
  4:st:='chetiresta';
  5:st:='patcot';
  6:st:='shestsot';
  7:st:='semsot';
  8:st:='vosemsot';
  9:st:='devyatsot';
  end;  case n mod 100 of
 
  11:st:=st+'odinnadtcat';
  12:st:=st+'dvenadtcat';
  13:st:=st+'trinadtcat';
  14:st:=st+'chetirnadtcat';
  15:st:=st+'pyatnadtcat';
  16:st:=st+'shestnadtcat';
  17:st:=st+'semnadtcat';
  18:st:=st+'vosemnadtcat';
  19:st:=st+'devyatnadtcat';end;
   case n mod 100 of
  10:st:=st+'desyat';
  20:st:=st+'dvadtcat';
  30:st:=st+'tridtcat';
  40:st:=st+'sorok';
  50:st:=st+'pyatdesyat';
  60:st:=st+'shestdesyt';
  70:st:=st+'semdesyat';
  80:st:=st+'vosemdesyat';
  90:st:=st+'devyanosto';
  end;
 case n div 10 of
  2:st:=st+'dvadtcat';
  3:st:=st+'tridtcat';
  4:st:=st+'sorok';
  5:st:=st+'pyatdesyat';
  6:st:=st+'shestdesyt';
  7:st:=st+'semdesyat';
  8:st:=st+'vosemdesyat';
  9:st:=st+'devyanosto';
  end;
  case n mod 10 of
  1:st:=st+'odin';
  2:st:=st+'dva';
  3:st:=st+'tri';
  4:st:=st+'chetire';
  5:st:=st+'pyat';
  6:st:=st+'shest';
  7:st:=st+'sem';
  8:st:=st+'vosem';
  9:st:=st+'devyat';
 
end;
end;
writeln(st);
readln
end.

uses crt;
var st:string;
    n:integer;
begin
clrscr;
repeat
write('Введите число от 1 до 1000 n = ');
readln(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);
readln;
end.