Дано целое число в диапазоне 0–9. Вывести строку—название соответствующей цифры

uses crt;
var n: integer;
begin
write('Введите число ');            //запрашиваем и сохраняем число
readln(n);
case n of                           //оператор выбора: "в случае, если"
0: writeln('ноль');                 //если число =0 вывести "ноль" и так далее
1: writeln('один');
2: writeln('два');
3: writeln('три');
4: writeln('четыре');
5: writeln('пять');
6: writeln('шесть');
7: writeln('семь');
8: writeln('восемь');
9: writeln('девять');
else writeln('Число не входит в диапазон [0;9]');  //иначе, если число за пределами диапазона,выводим сообщение
end;                                              //закрываем оператор выбора
end.

  Uses crt;
 
  var x:integer;
  
  begin
  Write('Введите целое число в диапозоне 0 - 9: ');readln(x);
  case x of
  0: Writeln('Ноль'); // если X = 0 , то выводим слово Ноль
  1: Writeln('Один');
  2: Writeln('Два');
  3: Writeln('Три');
  4: Writeln('Четыри');
  5: Writeln('Пять');
  6: Writeln('Шесть');
  7: Writeln('Семь');
  8: Writeln('Восемь');
  9: Writeln('Девять');   // если X = 9 , то выводим слово Девять
  else Writeln('Ошибка');    // иначе выводим Ошибка
  end;
  end.