Задача: с клавиатуры вводится число от 1 до 1000. Программа должна вывести его прописью. (Написать программу на Паскале)

{-}constch_1: array[1..19] of string = ('один', 'два', 'три', 'четыре', 'пять', 'шесть','семь', 'восемь', 'девять', 'десять', 'одиннадцать', 'двенадцать', 'тринадцать','четырнадцать', 'пятнадцать', 'шестнадцать', 'семнадцать', 'восемнадцать', 'девятнадцать');ch_2: array [2..9] of string = ('двадцать', 'тридцать', 'сорок', 'пятьдесят', 'шестьдесят', 'семьдесят', 'восемьдесят', 'девяносто'); ch_3: array [1..9] of string = ('сто', 'двести', 'триста', 'четыреста', 'пятьсот', 'шестьсот', 'семьсот', 'восемьсот', 'девятьсот'); varn : 0..1000;beginrepeatwrite ('Введите натуральное число, меньшее 1000: ');readln (n);until n in [1..999];if n in [100..999] then write (ch_3[n div 100], ' ');     if (n mod 100) in [20..99] then      begin          write (ch_2[(n mod 100)div 10], ' ');           if (n mod 10) <> 0 then write (ch_1[n mod 10]);      end      else      if (n mod 100) <>0 then write (ch_1[n mod 100]); end.