Генератор вариаций слов (предложений)

const r: array[1..3, 1..3] of Integer = ((2,3,1),(2,1,0),(1,2,4)); //правила
      p: array[1..5, 1..4] of String  = (('стол','собрать','красный','пластмассовый'),
                                         ('стул','настроить','синий','керамический'),
                                         ('лампа','починить','белый','деревянный'),
                                         ('диван','','','бумажный'),
                                         ('кровать','','','гипсовый'));

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k: Integer;
procedure Rec(Text: String; i1,j1,Maxj: Integer);
var ti,tn: Integer;
    s: String;
begin
  for ti:=Low(p) to High(p) do begin
    if p[ti,r[i1,j1]]='' then Exit;
    s:=Text+p[ti,r[i1,j1]]+' ';
    if j1=Maxj then Memo1.Lines.Add(s)
    else Rec(s,i1,j1+1,Maxj);
  end;
end;
begin
  for i:=Low(r) to High(r) do begin
    k:=-1;
    for j:=Low(r) to High(r) do if r=0 then Break else k:=j;
    if k<>-1 then Rec('',i,Low(r),k);
    Memo1.Lines.Add('');
  end;
end;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
const
 NN=9;
 MOI:array[0..NN]of string = ('мой','твой','наш','ваш','не','весь','как','так','зря','что');
 DADA:array[0..NN]of string = ('дядя','Федя','гоблин','заяц','бубен','дятел','корень','голос','запах','череп');
 SAMYH:array[0..NN]of string = ('самых','всяких','лучших','ближних','бедных','потных','гадких','знойных','теплых','милых');
 CHESTNYH:array[0..NN]of string = ('честных','робких','зыбких','мокрых','толстых','тонких','вредных','крайних','толстых','скользких');
 PRAVIL:array[0..NN]of string = ('правил','чисел','чресел','славил','красил','портил','метил','кресел','гробил','бросил');
 KOGDA:array[0..NN]of string = ('когда','всегда','тогда','куда','сюда','ну, да','вот так','не так','вокруг','почти');
 NE_V_SHU:array[0..NN]of string = ('не в шутку','внезапно','немного','приятно','ужасно','противно','душевно','по правде','как будто','истошно');
 ZANEMOG:array[0..NN]of string = ('заболел','захотел','переел','утонул','отошел','почесал','закричал','вожделел','убежал','написал');
 ON_UVA:array[0..NN]of string = ('он уважать','всех обижать','не понимать','не отставать','и почесать','так не видать','здесь не стоять','вам не понять','всех не унять','хотел обнять');
 SEBYA_ZAS:array[0..NN]of string = ('себя заставил','его направил','меня поставил','её оставил','почти без  правил','хоть не прибавил','ему не дали','меня не стали','её достали','уже устали');
 I_LUCHE:array[0..NN]of string = ('и лучше','не хуже','всё ближе','так всё же','да, толше','и глубже','пусть ниже','нет, тише','зачем-же','прости же');
 VYDU_NE_MOG:array[0..NN]of string = ('выдумать не смел','он бы поимел','ей не объяснял','так не уповал','лишь бы не упал','видеть не желал','брать не запрещал','всюду защищал','всех не посчитал','близко не лежал');

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Lines.Clear;
 Memo1.Lines.Add(MOI[Random(NN+1)]+' '+DADA[Random(NN+1)]+' '+SAMYH[Random(NN+1)]+' '+CHESTNYH[Random(NN+1)]
                 +' '+PRAVIL[Random(NN+1)]);
 Memo1.Lines.Add(KOGDA[Random(NN+1)]+' '+NE_V_SHU[Random(NN+1)]+' '+ZANEMOG[Random(NN+1)]);
 Memo1.Lines.Add(ON_UVA[Random(NN+1)]+' '+SEBYA_ZAS[Random(NN+1)]);
 Memo1.Lines.Add(I_LUCHE[Random(NN+1)]+' '+VYDU_NE_MOG[Random(NN+1)]);
end;

initialization
 Randomize;
end.