Крестики 19х19, о ХО Опции

[cooler]

Извините за повтор.
Нужна прога крестики-нолики 19х19
Смотрел в теме Хрестики-нолики,
там нет нормальных прог (в одной не могу подключить Unit)
Помогите плз.

[cooler]

ЕЩЕ 2 вопроса:
1)что делают function seach1 и 2 (из основной проги)
2)

procedure inputmass(var ma : array of real;mn :integer);
  procedure inputmass2(var ma : tdarray;mn,mk :integer);
  function findmin(ma : array of real;var mi:integer;mk:integer;mn:integer):real;
  function findmax(ma : array of real;var mi:integer;mk:integer;mn:integer):real;
  procedure showmass(ma : array of real;mn:integer);
  procedure showmass2 (ma:tdarray;mn,mk:integer);
  procedure showmass3 (ma:tshortdarray;mn,mk:integer);
  procedure sortmass1(var ma : array of real;mn : integer);
  procedure sortmass2(var ma : array of real;mn : integer);
  procedure sortmass3(var ma:array of real;mn:integer;mk:integer);
  procedure concmass(ma,mb:array of real;na,nb :integer;var mc:array of real);
  function findinmass(ma : array of real;mn,mk:integer;mf:real):integer;

Что делают все эти процедуры, особенно непонятно imputmass (из модуля)