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

Формулировка задачи:

Дано целое число в диапазоне 10–40, определяющее количество учеб- ных заданий по некоторой теме. Вывести строку-описание указанного количества заданий, обеспечив правильное согласование числа со слова- ми «учебное задание», например: 18 — «восемнадцать учебных заданий»,

Решение задачи: «Вывести строку-описание указанного количества заданий»

Листинг программы

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.

Объяснение кода листинга программы

Переменная st инициализируется пустой строкой.
Переменная k инициализируется значением, введенным пользователем.
Переменная k проверяется на значение от 10 до 40.
Если значение k попадает в диапазон от 10 до 40, то переменная st обновляется соответствующим образом.
Если значение k не попадает в диапазон от 10 до 40, то переменная st обновляется в зависимости от значения k.
В конце кода выводится значение переменной st.