Как поменять местами первый и последний символ в Паскаль

[Flocky]

Дана строка символов.
Группы символов, разделенные одним или несколькими пробелами и не содержащие пробелов внутри себя, будем называть словами.
В каждом нечетном по порядку слове поменять местами первый и последний символы.

[Stilet]

И как всегда я рекомендую следующий метод разведения строки на массив слов: http://www.programmersforum.ru/showt...369#post398369

[Flocky]

Даже мыслей нет как это сделать..

[Аватар]

Даже мыслей нет как это сделать..

Это лечится. Пиши в разделе фриланс и указывай сумму, которую платишь за выполненную работу

[Aleksandr H.]

uses crt;
var s:string; a:array[1..100] of string;
  i,count:integer;c:char;
begin
 clrscr;
 s:='Hello my world';
 count:=1;
 i:=1;
 while (i<=length(s)) do begin
   if s[i]=' ' then begin inc(count);inc(i);end;
   a[count]:=a[count]+s[i];
   if odd(i) then
    begin
      c:=a[i][1];
      a[i][1] := a[i][length(a[i])];
      a[i][length(a[i])]:= c;
    end
   inc(i);
 end;
end.

[Flocky]

Program1.pas(14) : Ошибка времени выполнения: Индекс находился вне границ массива.
14 строка