Лингвистическая Антонимическая Модель, Описание в объектов Антонимах+Оболочка на Паскале Опции

[Чужак]

Тема не игровая,может ближе к задачам, но именно в Играх завязываются коллективные проекты,
поэтому решил разместиться здесь.
Сначала теория. Человеский естественный язык, речь, согласно данным современной лингвистики весьма структурирована и насыщена различными структурами.
В языке можно выделить, например, такие понятийные пласты:
1. Классификационные понятия. Обычные понятия обычного разговорного языка, отражающие предметное многообразие мира вокруг нас. Около 100-200 тыс.слов.
(Дом, стол, стул, дерево-это все они. Могут иметь множество уровней вложенности, но здесь речь не о них).
2. Антонимы, или бинарные оппозиции. Отражают противоположные качества либо стороны предметов.
(жесткий-мягкий, холодный-горячий, длинный короткий и т.д.
Сам насобирал около 30 пар).
Ну, теперь дошел до проектной части. Решил создать программу, народобие тестов, но с более сложной лингвистической и логической структурой. (Пока речь не о коде Паскаля, а логической упорядоченности).
Пользователь вводит свое имя и название объекта, допустим "сад", затем программа спрашивает у него
"Сад большой или маленький?" С вариантами ответа,
затем, к примеру "темный или светлый?" ит.д.
В конце выдает "сад большой/светлый".
Вот что получилось...

Program AntonimicheskajaModel;
 Uses Crt;
 Var a:char; i1,i2,p1,p2:integer;
     m:array[0..100] of string;
     c,ob,s:string;
begin {program}
 m[1]:='БОЛЬШОЙ'; m[2]:='МАЛЕНЬКИЙ'; m[3]:='НЕ БОЛЬШОЙ, НЕ МАЛЕНЬКИЙ';
 m[4]:='И БОЛЬШОЙ, И МАЛЕНЬКИЙ'; m[5]:='СКОРЕЕ БОЛЬШОЙ';
 m[6]:='СКОРЕЕ МАЛЕНЬКИЙ';
 m[7]:='ТВЕРДЫЙ'; m[8]:='МЯГКИЙ';m[9]:='НЕ ТВЕРДЫЙ, НЕ МЯГКИЙ';
 m[10]:='И ТВЕРДЫЙ, И МЯГКИЙ'; m[11]:='СКОРЕЕ ТВЕРДЫЙ';
 m[12]:='СКОРЕЕ МЯГКИЙ';
 writeln ('КАК ВАШЕ ИМЯ?');
 readln©;
 writeln (' НАЗВАНИЕ ОБЪЕКТА ИЗУЧЕНИЯ?');
 readln(ob);
 writeln(' ЗДРАВСТВУЙТЕ, ',c);
 writeln(' ПРИСТУПИМ К ИЗУЧЕНИЮ ОБЪЕКТА " ',ob,' "(Y/N)?');
 readln(a);
 if a='y' then
 begin
 writeln(' ОБЪЕКТ БОЛЬШОЙ ИЛИ МАЛЕНЬКИЙ?');
 writeln(' ВАРИАНТЫ ОТВЕТА:');
 writeln(' 1-БОЛЬШОЙ, 2-МАЛЕНЬКИЙ ');
 writeln(' 3-НЕ БОЛЬШОЙ, НЕ МАЛЕНЬКИЙ, 4-И БОЛЬШОЙ, И МАЛЕНЬКИЙ ');
 writeln(' 5-СКОРЕЕ БОЛЬШОЙ, 6-СКОРЕЕ МАЛЕНЬКИЙ ');
 read(p1); i1:=p1;
 writeln(' ОБЪЕКТ ТВЕРДЫЙ ИЛИ МЯГКИЙ?');
 writeln(' ВАРИАНТЫ ОТВЕТА:');
 writeln(' 1-ТВЕРДЫЙ , 2-МЯГКИЙ ');
 writeln(' 3-НЕ ТВЕРДЫЙ , НЕ МЯГКИЙ, 4-И ТВЕРДЫЙ, И МЯГКИЙ ');
 writeln(' 5-СКОРЕЕ ТВЕРДЫЙ, 6-СКОРЕЕ МЯГКИЙ ');
 read(p2); i2:=p2+6;
 if p1=i1 then begin
           writeln('******************');
           writeln('ОБЪЕКТ ',ob,' ' , m[i1]);
           writeln( m[i2]);
                end;
 end;
 if a='n' then writeln(' ПРОЩАЙТЕ  ',c);
 readkey;
end.

Предлагаю тему к коллективной разработке.
Для этого прошу:
1. Код программы. По моему, его улучшать и улучшать. Критикуйте.
2. Антонимы. Кто нибуть знает, где в Интернет взять электронный словарь антонимов?
Либо помогите с поиском Желательно иметь запас штук сто.
3. Ваше мнение?

[Чужак]

В замечании модератора volvo увидел потаенный смысл.
Стоп! Сам себе думаю...
Да, линейная структура моей программы ограничена.
Прогу надо делать на массивах, файлах или процедурах, с циклами.
Решил сделать на массивах и циклах, с заполнением с клавиатуры.
Когда он намекал на это, то наверно подразумевал нечто
подобное (а может, гораздо лучше). Если это так,
то БОЛЬШОЙ ПРОФЕССИОНАЛ этот volvo.
(Но и зануда он тоже не малая...)
Вот программа:

program AntonimSyperModel;
 uses crt;
 const t=6;
 var i,j,k,l:integer; a:char;
 m:array[0..20] of string;
 n:array[0..100] of string;
 d:array[0..20] of integer;
 c,ob:string;
begin
 clrscr; i:=0; j:=0; k:=0; l:=0;
 writeln('ВВЕДИТЕ АНТОНИМЫ');
 while (i<t) do
  begin
  readln(m[i]); i:=i+1;
  end;
  while (j<t)  do
  begin
  n[j]:='Не '+m[j]+' Не '+m[j+1];  n[t+j]:=' И '+m[j]+' И '+m[j+1];
  n[2*t+j]:='СКОРЕЕ '+m[j];        n[3*t+j]:='СКОРЕЕ '+m[j+1];
  j:=j+2;
  end;
clrscr;
writeln ('КАК ВАШЕ ИМЯ?');
readln©;
writeln (' НАЗВАНИЕ ОБЪЕКТА ИЗУЧЕНИЯ?');
readln(ob);
writeln(' ЗДРАВСТВУЙТЕ, ',c);
writeln(' ПРИСТУПИМ К ИЗУЧЕНИЮ ОБЪЕКТА " ',ob,' "(Y/N)?');
readln(a);
if a='y' then
begin
clrscr;
while (k<t) do begin
writeln('ОБЪЕКТ " ',ob,'" ',m[k], ' ИЛИ ', m[k+1] );
writeln('ВАРИАНТЫ ОТВЕТА');
writeln('1- ', m[k]); writeln('2- ',m[k+1]);
writeln('3- ', n[k]); writeln('4- ',n[k+t]);
writeln('5- ', n[k+2*t]); writeln('6- ', n[k+3*t]);
readln(d[k]); clrscr;
k:=k+2;
end;
clrscr;
  writeln('ОБЪЕКТ " ',ob,' "');

  while (l<t) do begin
  if d[l]=1 then writeln(m[l]);
  if d[l]=2 then writeln(m[l+1]);
  if d[l]=3 then writeln(n[l]);
  if d[l]=4 then writeln(n[l+t]);
  if d[l]=5 then writeln(n[l+2*t]);
  if d[l]=6 then writeln(m[l+3*t]);
  l:=l+2;
  end;

  end;
  if a='n' then writeln(' ПРОЩАЙТЕ  ',c);
 readkey; clrscr;
end.

Просьба к читающим.
1. Потестируйте, пожалуйста, программу.
2. Накидайте антонимов!
3. Ваше мнение?