Составление алгоритмов для исполнителя Чертёжник

Романтика, аниматор, форманта, романтик, иномарка, фанариот, Митрофан, наркомат,камфора, натирка, каротин, тиранка, фонарик, Кириана, инфаркт, картина, ритмика,Никифор, марафон, Матрона, маринка, макитра, формиат, , трофика, маниока, комната,мартини, , антимир, матрона, окраина, фанатик, акроним, миканит, октарин, формант,намотка, аромат, мантра, фианит, Африка, кантор, Анфима, катион, микрон, фантик,тарник, кианит, фортка, комара, ратник, нарком, арника, камора, анатом, кармин,фактор, морфин, фоника, аконит, мирика, Никита, ракита, трафик, картон, форинт,кифара, Марина, афронт, кантри, Трифон, фирман, иранка, катран, формат, кафтан,тонарм, фантом, тиамин, Трофим, каинит, тоника, фараон, Карина, Моника, Мартин,амфора, карман, нотка, ринит, фомка, франт, Марфа, морфа, антик, Коран, матка,фанат, канат, мирка, танка, трико, финик, корма, мотка, октан, форма, Макар,мирок, рамка, томик, актор, Мирон, тариф, Ирина, кафир, кофта, марка, накат,роман, митра, фитин, минор, тоник, икота, карат, норка, тиара, Фаина, Аарон,Марта, отара, карма, манок, факир, нарта, ротик, франк, манто, тиран, крона,фиакр, фронт, интим, карта, маори, Марат, мотик, ритон, Афина, макар, нимфа,финка, катар, Мотра, рифма, фанки, актин, коата, мирон, нитка, таран, аорта,Томна, фанта, амати, икаит, ранка, Тарка, Марка, Роман, икона, комар, ратин,Арина, нарик, манка, норма, аркан, камин, инока, мора, факт, крон, така, торн,Рита, аком, арфа, крот, Мира, Ника, рака, трак, фтор, мара, окра, тмин, фора,рама, фанк, кмин, Тара, трио, финт, Ирак, мрак, фант, афта, каон, коиф, рана,трок, фирн, Мина, ИКАО, Кара, кома, нора, рант, арат, Каин, Нара, фара, арка,Кама, Кима, фарт, нота, тина, Фома, киот, Крит, тори, фата, морф, ринк, Аким,Арон, Кира, мира, натр, торф, кора, окат, ритм, атом, кана, танк, фиат, корм,кант, миро, рами, тара, корт, маки, РАМН, кофр, Марк, мина, омар, кара, Мана,мирт, нома, трон, фита, арак, кран, оним, форт, амин, Нора, крат, март, икра,Фока, кино, крин, мион, офит, рота, тора, фрак, тир, кир, Мир, рак, кор, фан,Кан, тан, мот, акр, ион, кат, риф, Ток, акт, кот.
НОРМАЛЬНО?

Program colors;
Uses crt;

var color: integer;
label l1;

Begin clrscr;
      l1: write('Введите номер цвета color = ');
          readln(color);

          case color of 0: writeln('Черный');
                        1: writeln('Синий');
                        2: writeln('Зеленый');
                        3: writeln('Голубой');
                        4: writeln('Красный');
                        5: writeln('Фиолетовый');
                        6: writeln('Коричневый');
                        7: writeln('Светло-серый');
                        8: writeln('Темно-серый');
                        9: writeln('Ярко-синий');
                        10: writeln('Ярко-зеленый');
                        11: writeln('Ярко-голубой');
                        12: writeln('Розовый');
                        13: writeln('Малиноый');
                        14: writeln('Желтый');
                        15: writeln('Белый');

          else
          begin
               writeln('Непривильный номер цвета');
               writeln;
               goto l1;
          end;
          end;
      readln;
End.