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

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.