Процедура, которая выводит переданное ей число прописью - Free Pascal

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

напишите процедуру которая выводит переданное ей число прописью

Решение задачи: «Процедура, которая выводит переданное ей число прописью»

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

procedure Chislo(a:integer);
var
s:String;
begin
case a of
  1:s:='один';
  2:s:='два';
  3:s:='три';
  4:s:='четыре';
  5:s:='пять';
  6:s:='шесть';
  7:s:='семь';
  8:s:='восемь';
  9:s:='девять';
  0:s:='ноль';
end;
WriteLn(s);
end;

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

Объявлена процедура Chislo с одним параметром a типа integer.
Объявлена переменная s типа String.
Выполнена конструкция case, которая определяет значения переменной s в зависимости от значения параметра a.
Если a равно 1, то s принимает значение 'один'.
Если a равно 2, то s принимает значение 'два'.
Если a равно 3, то s принимает значение 'три'.
Если a равно 4, то s принимает значение 'четыре'.
Если a равно 5, то s принимает значение 'пять'.
Если a равно 6, то s принимает значение 'шесть'.
Если a равно 7, то s принимает значение 'семь'.
Если a равно 8, то s принимает значение 'восемь'.
Если a равно 9, то s принимает значение 'девять'.
Если a равно 0, то s принимает значение 'ноль'.
Выполняется процедура WriteLn, которая выводит значение переменной s на экран.
Конец процедуры Chislo.