Пользователь вводит с клавиатуры число от 0 до 100, программа выводит число буквами

var
  c:integer;
  sd,se,str:string;
begin
  repeat
    write('c='); readln(c);
  until c in[0..100];
  case c of
    0:str:='ноль';
    100:str:='сто';
    else
    begin
      case c of
        11:str:='одиннадцать';
        12:str:='двенадцать';
        13:str:='тринадцать';
        14:str:='четырнадцать';
        15:str:='пятнадцать';
        16:str:='шестнадцать';
        17:str:='семнадцать';
        18:str:='восемнадцать';
        19:str:='девятнадцать';
        else
        begin
          case c div 10 of
            0:sd:='';
            2:sd:='двадцать';
            3:sd:='тридцать';
            4:sd:='сорок';
            5:sd:='пятьдесят';
            6:sd:='шестьдесят';
            7:sd:='семьдесят';
            8:sd:='восемьдесят';
            9:sd:='девяносто';
          end;
          case c mod 10 of
            0:se:='';
            1:se:='один';
            2:se:='два';
            3:se:='три';
            4:se:='четыре';
            5:se:='пять';
            6:se:='шесть';
            7:se:='семь';
            8:se:='восемь';
            9:se:='девять';
          end;
          if sd='' then str:=se
          else
          if se='' then str:=sd
          else
          str:=sd+' '+se;
        end;
      end;
    end;
  end;
  writeln('Строкой: ',str);
end.

function str(const c:integer):string;
var s:string;
begin
  case c mod 10 of
    0:s:='ноль';
    1:s:='один';
    2:s:='два';
    3:s:='три';
    4:s:='четыре';
    5:s:='пять';
    6:s:='шесть';
    7:s:='семь';
    8:s:='восемь';
    9:s:='девять';
  end;
  if (c div 10<>0) then
    str:=str(c div 10)+','+s
  else
    str:=s;
end;
var
  c:integer;
begin
  repeat
    write('c='); readln(c);
  until c in[0..100];
  writeln('Строкой: ',str(c));
end.