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

CONST
  s1h=' sto';
  s2h=' dvesti';
  s3h=' trista';
  { tak do 900 }
  s11=' odinnadcat';
  s12=' dvenadcat';
  { tak do 19 }
  s2d=' dvadcat';
  s3d='tridcat';
  { tak do 90 }
  s1=' odin';
  s2=' dva';
  s3=' tri';
  { tak do 9 }
var
  k, ost, ost2: integer;
begin
  write('Vvedite chislo: ');
  readln(k);
  ost:=k div 100;
  case (ost) of
    1: write(s1h);
    2: write(s2h);
    3: write(s3h);
    {........}
  end;
  ost:= k mod 100;
  ost2:= ost div 10;
  case (ost2) of
    1: begin
         case (ost) of
           11: write(s11);
           12: write(s12);
           {............}
         end;
         readln;
         Exit;
       end;
    2: write(s2d);
    3: write(s3d);
    {--------------}
  end;
  ost:=k mod 10;
  case (ost) of
    1: write(s1);
    2: write(s2);
    3: write(s3);
    {.............}
  end;
  readln;
end.