Вывести строку-описание указанного количества заданий - Pascal ABC

var st:string;
    k:byte;
begin
repeat
write('Введите число от 10 до 40 k=');
readln(k);
until k in [10..40];
st:='';
case k of
10:st:='десять';
11:st:='одиннадцать';
12:st:='двенадцать';
13:st:='тринадцать';
14:st:='четырнадцать';
15:st:='пятндцать';
16:st:='шестнадцать';
17:st:='семнадцать';
18:st:='восемнадцать';
19:st:='девятнадцать';
else
 begin
  case k div 10 of
  2:st:='двадцать ';
  3:st:='тридцать ';
  4:st:='сорок ';
  end;
  case k 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;
case k of
10..20,30,40:st:=st+' учебных заданий';
else
 case k mod 10 of
 1:st:=st+' учебное задание';
 2..4:st:=st+' учебных задания';
 else st:=st+' учебных заданий';
 end;
end;
writeln(st);
end.