Строка: вывести на экран слова с четным количеством символов.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
 
type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    Memo1: TMemo;
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormActivate(Sender: TObject);
begin
   combobox1.setfocus;
end;
 
procedure TForm1.ComboBox1KeyPress(Sender: TObject;
     var Key: Char);
begin
   if key=#13 then
     begin
     combobox1.Items.Add( combobox1.text );
     combobox1.text:='';
     end;
end;
 
procedure TForm1.ComboBox1Click(Sender: TObject);
  Const c:Set of Char=[' ','.',',',':',';','(',')','?','!', '[',']','{','}'];                   //список разделителей слов
Var s:String;
n,k,i:Integer;
a:Array of String;
Begin
 s:= combobox1.text;      s:=s+' ';
  // удаление  пробелов в начале  строки
  while s[1]=' ' do delete(s,1,1);         //счетчик количества слов
repeat
    k:=pos('  ',s);
    if k<>0 then  delete(s,k,1);
  until k=0;
 
  n:=0;    memo1.Clear;
  repeat  // выделение отдельных слов
    k:=pos(' ',s);
    if k<>0 then begin
                 n:=n+1;
                 SetLength(a,n); // Отводим новую память для массива
                 a[n-1]:=copy(s,1,k-1);
                 delete(s,1,k);
                 end;
  until k=0;
  for i:=2 to n do
    for k:=0 to n-i do
  if length(a[k]) mod 2=0 then memo1.Lines.Add(a[k]);
    end;
 
 
end.

//Процедура извлекает из текста aStr слова с чётным
//количеством символов и добавляет их в список aSl.
procedure GetWords(const aStr : String; aSl : TStrings);
const
  //Множество разделителей слов.
  //Во множество D следует добавить полный набор разделителей.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
  i, Len, LenW : Integer;
begin
  Len := Length(aStr);
  LenW := 0; //Длина очередного слова.
  for i := 1 to Len do
    //Если символ не является разделителем.
    if not (aStr[i] in D) then begin
      //Учитываем символ в длине слова.
      Inc(LenW);
      //Если обнаружен конец слова.
      if (i = Len) or (aStr[i + 1] in D) then begin
        //Если в слове чётное количество символов, то добавляем его в список.
        if LenW mod 2 = 0 then aSl.Add( Copy(aStr, i - LenW + 1, LenW) );
        LenW := 0; //Сброс длины слова.
      end;
    end;
end;
 
//Проверка. Исходный текст берётся из Memo1. Результат записывается в Memo2.
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.Clear;
  GetWords(Memo1.Text, Memo2.Lines);
end;

for i:=2 to n do
    for k:=0 to n-i do

for k:=0 to n-1 do