Дана строка слов,отделённых пробелом,в конце строки точка.поменять местами два центральных слова

[Dima170792]

Доброго времени сток Ув.форумчане!помогите пожалуста в решении задачи :Дана строка слов,отделённых пробелом,в конце строки точка.поменять местами два центральных слова,если их количество парное!Если можно приведите код программы на Delphi7

[vovk]

Напишите хотябы свой алгоритм решения (пусть даже неправильный).

[Dima170792]

Сообщение от vovk

Напишите хотябы свой алгоритм решения (пусть даже неправильный).

проблема в том,что я не имею понятия как ето организовать!

[Dima170792]

Сообщение от vovk

Напишите хотябы свой алгоритм решения (пусть даже неправильный).

нашел код не знаю -вроде то,но не могу понять значения L.Text-скорей всего Edit, L : TStrinList-вообще не пойму -компонент есто или функция

function ReplaceCenterWords(S : String) : String;
var
  L : TStrinList;
  I : Integer;
begin
  L := TStringList.Create;
  L.Text := StringReplace(S,' ',#13#10,[rfReplaceAll]);
  If L.Count mod 2 = 0 Then
    Begin
       L.Exchange((L.Count div 2)-1,(L.Count div 2));
       Result := StringReplace(L.Text,#13#10,' ',[rfReplaceAll]);
    End;
  L.Free;
end;

[Dima170792]

Нашол 100% правильный,к томуже работающий вариант-одна проблема-не могу адаптировать под делфи7 пожалуста помогите!

program z6;
{  Дана строка слов разделенных пробелом ,в конце строки точка.
Поменять местами два центральных слова если их количество четно}
uses crt;
var a,b:string;i,j,l:longint;
    c:array[1..30]of string;
begin
  clrscr;
   write('введите текст: ');readln(a);
   b:='';j:=1;l:=length(a);
   if (a[l]<>'.')then begin
                       writeln(' ОШИБКА!!!');
                       write(' В конце должна стоять точка');
                       readln;halt;
		      end;
   for i:=1 to l do
   if (a[i]=' ')or(a[i]='.')then begin
				  c[j]:=b;b:='';inc(j);
			         end
			    else b:=b+a[i];j:=j-1;
   if j mod 2<>0 then
   beginwrite('количество слов нечетно');readln;halt;end;
    l:=j div 2;b:=c[l];c[l]:=c[l+1];c[l+1]:=b;
   for i:=1 to j do write(c[i],' ');
  readln;
 end.