Используя «тарабарскую грамоту», зашифруй слово ТЕКСТ!

№| Название           | Место расположения | Площадь, км2
1 Каспийское море |самое большое на Земле озеро, бессточное, расположенное на стыке Европы и Азии| 371 000 км²
2 Верхнее | Одно их больших озер Северной Америки   |82 103 км²
3 Виктория | озеро в Восточной Африке, на территории Танзании, Кении и Уганды. Расположено в тектоническом прогибе | 68 800 км²
4 Гурон |озеро в США и Канаде | 59 600 км²
5 Мичиган |пресноводное озеро в США|  58 000 км²
6 Аральское море | бывшее бессточное соленое озеро в средней Азии| 3 300 км²
7 Танганьика | крупное озеро в Центральной Африке| 32 900 км²
8 Байкал |озеро тектонического происхождения в южной части Восточной Сибири| 31 722 км²
9 Большое Медвежье |находится на севере Канады| 31 153 км²
10 Нуаза | Озеро (Нуаза) Малави - самое южное из так называемых Великих африканских озер Восточно-Африканской рифтовой зоны| 6 400км²

{-}
const
ch_1: array[1..19] of string = ('один', 'два', 'три', 'четыре', 'пять', 'шесть','семь', 'восемь', 'девять', 'десять', 'одиннадцать', 'двенадцать', 'тринадцать','четырнадцать', 'пятнадцать', 'шестнадцать', 'семнадцать', 'восемнадцать', 'девятнадцать');

ch_2: array [2..9] of string = ('двадцать', 'тридцать', 'сорок', 'пятьдесят', 'шестьдесят', 'семьдесят', 'восемьдесят', 'девяносто'); 

ch_3: array [1..9] of string = ('сто', 'двести', 'триста', 'четыреста', 'пятьсот', 'шестьсот', 'семьсот', 'восемьсот', 'девятьсот'); 

var
n : 0..1000;
begin
repeat
write ('Введите натуральное число, меньшее 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.