Перестановка слов. Немного исправить

unit Syn;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, ToolWin, Menus;
 
type
  TVarStr = array of string;
  TWordType = (wtNoun, wtVerb, wtAdjective);
  TWord = record
   _type: TWordType;
   _word: shortstring;
  end;
  TFormMain = class(TForm)
    MainMenu1: TMainMenu;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    bt_Generate: TToolButton;
    memText: TMemo;
    memGen: TMemo;
    Splitter1: TSplitter;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    procedure bt_GenerateClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    GenText: TStrings;
 
    function FormulaAnalyse(Formula: string): TVarStr;
    function SentenceAnalyse(Sentence: string): TVarStr;
    function SynonimsAnalyse(Synonims: string): TVarStr;
 
    function InAlphabet(Symbol: char; upper: boolean): boolean;
    procedure TextAnalysis;
    procedure SentencesGenerate;
  public
    { Public declarations }
  end;
 
const
  Alphabet: array[0..32] of char = ('а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж',
   'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц',
   'ч', 'ш', 'щ', 'ъ', 'ы', 'ь', 'э', 'ю', 'я');
var
  FormMain: TFormMain;
  //Sentences: array of array of TWord;
  Sentences: array of string;
 
implementation
 
{$R *.dfm}
 
procedure TFormMain.bt_GenerateClick(Sender: TObject);
begin
 memGen.Clear;
 
 TextAnalysis;
 SentencesGenerate;
end;
 
procedure TFormMain.FormCreate(Sender: TObject);
begin
 Randomize;
end;
 
function TFormMain.FormulaAnalyse(Formula: string): TVarStr;
var i: integer;
begin
 SetLength(Result, 0);
 SetLength(Result, 1);
 
 for i := 1 to Length(Formula) do
 begin
  if Formula[i] = ' ' then
  begin
   SetLength(Result, Length(Result) + 1);
   Continue;
  end;
 
  Result[Length(Result)-1] := Result[Length(Result)-1] + Formula[i];
 end;
end;
 
function TFormMain.InAlphabet(Symbol: char; upper: boolean): boolean;
var i: integer;
begin
 Result := false;
 for i := 0 to 32 do
  if upper then
  begin
   if AnsiUpperCase(Alphabet[i]) = Symbol then
   begin
    Result := true; Exit;
   end;
  end else
  begin
   if Alphabet[i] = Symbol then
   begin
    Result := true; Exit;
   end;
  end;
end;
 
procedure TFormMain.SentencesGenerate;
var
 i, j, o, y, u: integer;
 AnalyseFile: TStrings;
 Formula: string;
 FormComp: TVarStr;     //FormulaComponents
 SentComp: TVarStr;     //SentenceComponents
 Synonims: TVarStr;
 s: string;
 c: char;
 n: integer;
 check_f: boolean;
label l;
begin
 AnalyseFile := TStringList.Create;
 try
  AnalyseFile.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Data\Syn_Words.txt');
  Formula := AnalyseFile[0];
 
  FormComp := FormulaAnalyse(Formula);
 
  for i := 0 to Length(Sentences) - 1 do
  begin
   SentComp := SentenceAnalyse(Sentences[i]);
 
   {check_f := false;
   j := 0;
   while FormComp[j] <> '--' do
   begin
    if FormComp[j] = '%' then begin check_f := true; continue; end;
 
 
 
    inc(j);
   end;          }
 
   for j := 0 to Length(FormComp) - 1 do
   begin
    if FormComp[j] = '%' then
    begin
     for o := 0 to Length(SentComp) - 1 do
     begin
      s := '';
 
      for y := 1 to AnalyseFile.Count - 1 do
      begin
       Synonims := SynonimsAnalyse(AnalyseFile[y]);
       for u := 0 to Length(Synonims) - 1 do
       begin
        if Synonims[u] = SentComp[o] then
        begin
         l: n := Random(Length(Synonims));
 
         if Synonims[n] = SentComp[o] then goto l
         else s := Synonims[n];
         Break;
        end;
       end;
      end;
 
      if s <> '' then memGen.Text := memGen.Text + ' ' + s
      else begin
       if Length(SentComp[o]) = 1 then
       begin
        c := SentComp[o][1];
        if (not InAlphabet(c, False)) and (not InAlphabet(c, true)) then
         memGen.Text := memGen.Text + SentComp[o]
        else memGen.Text := memGen.Text + ' ' + SentComp[o];
       end
       else memGen.Text := memGen.Text + ' ' + SentComp[o];
      end;
     end;
    end;
   end;
  end;
 
  memGen.Text := Trim(memGen.Text);
 finally
  AnalyseFile.Free;
  SetLength(FormComp, 0);
  SetLength(SentComp, 0);
  SetLength(Synonims, 0);
 end;
end;
 
function TFormMain.SentenceAnalyse(Sentence: string): TVarStr;
var i: integer;
begin
 SetLength(Result, 0);
 SetLength(Result, 1);
 
 for i := 1 to Length(Sentence) do
 begin
  if Sentence[i] = ' ' then
  begin
   SetLength(Result, Length(Result) + 1);
   Continue;
  end;
 
  if (not InAlphabet(Sentence[i], false)) and (not InAlphabet(Sentence[i], true)) then
  begin
   SetLength(Result, Length(Result) + 1);
   Result[Length(Result)-1] := Sentence[i];
   SetLength(Result, Length(Result) + 1);
   Continue;
  end;
 
  Result[Length(Result)-1] := Result[Length(Result)-1] + Sentence[i];
 end;
end;
 
function TFormMain.SynonimsAnalyse(Synonims: string): TVarStr;
var i: integer;
begin
 SetLength(Result, 0);
 SetLength(Result, 1);
 for i := 1 to Length(Synonims) do
 begin
  if Synonims[i] = '|' then
  begin
   SetLength(Result, Length(Result) + 1);
   Continue;
  end;
 
  Result[Length(Result)-1] := Result[Length(Result)-1] + Synonims[i];
 end;
end;
 
procedure TFormMain.TextAnalysis;
var
 i: integer;
 NewSentence: boolean;
begin
 memText.Text := Trim(memText.Text);
 
 NewSentence := true;
 SetLength(Sentences, 0);
 for i := 1 to Length(memText.Text) do
 begin
  if NewSentence then SetLength(Sentences, Length(Sentences) + 1);
  Sentences[Length(Sentences)-1] := Sentences[Length(Sentences)-1] + memText.Text[i];
  if (memText.Text[i] = '.') and ((i = Length(memText.Text)) or (InAlphabet(memText.Text[i+2], true))) then
   NewSentence := true
  else NewSentence := false;
 end;
end;
 
end.