Работа со строками

var S:string;
a:array[1..100] of string;
i,l,k,q,m,u,w:integer;
begin
s:=edit1.Text;
s:=Trim(s)+' ';
edit2.text:=s;
k:=0;    //количество слов
m:=0;     //индекс начала слова
for i:=1 to length(s) do
 if (s[i]=' ') and (s[i-1]<>' ') then
 begin
 inc(k);
 a[k]:=copy(s,m+1,i-m-1);
  u:=i;
 end;
if k mod 2=0 then
begin

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var s,s1,s2:string;
    i,k,p,n,i1,i2:integer;
begin
s:=Edit1.Text;
n:=length(s);
//определяeм количество слов
k:=0;
for i:=1 to n do
if(s[i]<>' ')and((i=1)or(s[i-1]=' '))then inc(k);
Edit2.Text:='Количество слов='+IntToStr(k);
//если нечетное
if odd(k) then
 begin
 //ищем начало слова слева от середины
  i:=1;
  p:=0;
  while p<=k div 2 do
   begin
    if(s[i]<>' ')and((i=1)or(s[i-1]=' '))then inc(p);
    inc(i)
   end;
  dec(i); //назал на 1 букву
  while s[i]<>' 'do
   begin
    s[i]:=' ';
    inc(i)
   end;
 end
else //если четное
 begin
  //ищем начало слова слева от середины
  i:=1;
  p:=0;
  while p<k div 2 do
   begin
    if(s[i]<>' ')and((i=1)or(s[i-1]=' '))then inc(p);
    inc(i)
   end;
  dec(i); //назал на 1 букву
  i1:=i; //начало 1 слова
  s1:='';
  while s[i]<>' ' do //составляем 1 слово
   begin
    s1:=s1+s[i];
    inc(i)
   end;
  while s[i]=' ' do inc(i);
  i2:=i; //начало 2 слова
  s2:='';
  while s[i]<>' ' do //составляем 2 слово
   begin
    s2:=s2+s[i];
    inc(i)
   end;
  //обмениваем местами
  delete(s,i2,length(s2));
  insert(s1,s,i2);
  delete(s,i1,length(s1));
  insert(s2,s,i1);
 end;
 
Edit3.Text:=s
end;
 
end.