Выделение слов из строки // Pascal

[Rifler]

Здрасьте
Есть строка s1, например "My name is Vasya". НУжно зеркально переставить слова в этой строке, т.е. "Vasya is name My"
Я сделал вот так, но что-то не хочет, т.е. выделяю слово и добавляю его в начало списка и получается, что просмотром списка они выводятся сразу в обратном порядке. Только где-то ошибка, наверно при выделении слов. HELP

 head:=nil;
 Reset(f2);
 while not(eof(f2)) do begin
  ReadLn(f2,s1);
  head:=nil;
  new(p); p^.next:=head; head:=p;
  for i:=1 to length(s1) do begin
   if s1[i]<>' ' then p^.data:=p^.data + s1[i]
                else begin new(p); p^.next:=head; head:=p; end;
  end;
  p:=head;
  while p<>nil do begin
    Write(f3,p^.data);
    p:=p^.next;
    end;
  WriteLn(f3); {переводим на новую строку}
  end;

[Air]

Вот вроде работает

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
Slovo:string = 'My name is Vasya';
NewSlovo, s:string;
i: integer;

begin
for i:=1 to strlen(pchar(slovo)) do
 begin
  if slovo[i] <> ' ' then
   s:=s + slovo[i]
  else
   begin
    NewSlovo:=s + ' ' + NewSlovo;
    s:='';
   end;
 end;
NewSlovo:=s + ' ' + NewSlovo;
writeln(Slovo);
writeln(NewSlovo);
readln;

end.

[Rifler]

Спасибо большое

[Rifler]

Новый вопрос - пользователь вводит комплексное число a+b*i
Нужно выделить a и b. ну т.е. -10-4*i, получится -10 и -4. Перед а знака может и не быть, т.е. 10-4*i, т.е. чтобы программа распознавала этот случай

[Stilet]

Ну например анализируй если первый знак - то получай подстроку до следующей нецифры начиная со второго знака, иначе с первого. Потом удаляй из строки полученное и повторяй все заново для второго числа.