перестановки первого и второго слов в строке S

[Skvid]

Составить схему алгоритма и программу поиска и перестановки первого и второго слов в строке S.Вывести на экран исходную строку,преобразованную строку,а так же их длину. вот так вот...
помогите пож.. люди добрые..

[Arigato]

Напишите свои идеи по решению задачи.

[Skvid]

Ну как бы говоря помягче я в этом деле чайник, но парочка вариантов есть!
Но просидел я весь день за этой задачей, а нужно сделать до завтра(:

program ttt;

var a:string;

x:integer;

begin

write ('ââåäèòå ôðàçó'); read (a); x:=length(a); write (x);

end.
 это я так понял находиться длина строки!

Program skvid;
  Uses Crt;
  Var Words        : Array[1..10] of String; 
      Tmp          : String;       
      i, j, NWords : Integer;     
BEGIN
  ClrScr;
  Write('Количество слов в тексте — ');
  ReadLn(NWords);
  For i := 1 to NWords do
    begin Write(i, '-ое слово : ');
          ReadLn(Words[i])
    end;
  For i := 1 to NWords-1 do 
    For j := i+1 to NWords do
      If Words[i]>Words[j] then
        begin
           Tmp := Words[i]; Words[i]:=Words[j]; Words[j]:=Tmp
        end;
  WriteLn;  WriteLn('О т в е т');
  WriteLn('Лексикографически упорядоченный массив слов:');
  For i := 1 to NWords do Write(Words[i], ' ');
  WriteLn; ReadLn
END.

а вот это меняет местами слова, но мне нужно сменить их из одной строки и там же найти их длинну, весь день сижу нече неполучаеться помоги пож добрый человек

Arigato помоги оч прошу

[RUSt88]

если актуально могу помочь, недорого
сделаю в кратчайшие сроки с комментариями и пояснениями