Запишите любое число от 1 до 1000, введенное пользователем, русскими буквами. Например, 2 – два, 150 – сто пятьдесят — Pascal(Паскаль)

const
  max=10;
var
  a:array[1..max]of string;
  n:integer;
  temp:string;
begin
  a[1]:='один';
  a[2]:='два';
  a[3]:='три';
  a[4]:='четыре';
  a[5]:='пять';
  a[6]:='шесть';
  a[7]:='семь';
  a[8]:='восемь';
  a[9]:='девять';
  a[10]:='десять';
  readln(n);
  write(a[n]);
  writeln
end.