Пomogите создать последовательность

[Ellinishe]

Дана последовательность содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать все слова, предварительно преобразовав каждое из них по следующему правилу: перенести первую букву в конец слова.

Программа должна быть написана на дельфи.

[Serge_Bliznykov]

1) подобных задач на форуме было множество!

2) это задача не "создать последовательность", а выделить из заданной последовательности слова и преобразовать их

3) задача разбивается на две части:
- разбить на отдельные слова. (и опять таки примеры на форуме есть)
- перенести первую букву в конец слова - буквально пара строк. примерно так :

  // пусть слово находится в переменной Slowo (типа : string)
// тогда
  if Length(Slowo)>1 then 
     Slowo := Copy(Slowo,2, Length(Slowo)-1)+Copy(Slowo,1,1);

[Ellinishe]

Мда...оченьто вы помогли девушке на экзамене.. Гавнофорум..

[Летучий_СкилетиК]

Гавнофорум

а вот это наглость(

оченьто вы помогли

а Serge_Bliznykov по вашему не помог?, халява и помощь это не одно и то же...

[Ellinishe]

Пойми я не могу обыскать фесь форум мне тяжело с телефона

[veniside]

вот, простейший код.

program Project2;

{$APPTYPE CONSOLE}

uses
  Generics.Collections;

type
  TParsedList<T> = class(TList<T>)
  public
    //
    type
      TBreakProc = reference to function(const V: T; pos: Integer): Boolean;
      TCopyProc = reference to function(const V: T; pos, count: Integer): T;
      TRenderProc = reference to function(const V: T): T;
    //
    function parse(const V: T; len: Integer; breaker: TBreakProc; copy: TCopyProc): Integer;
    function foreach(render: TRenderProc): TParsedList<T>;
  end;


{ TParsedList<T> }

// --  --
function TParsedList<T>.foreach(render: TRenderProc): TParsedList<T>;
var
  i: Integer;
begin
  result := TParsedList<T>.Create(Self);
  //
  for i := 0 to Count - 1 do
    (result as TList<T>)[i] := render(Self[i]);
end;

// --  --
function TParsedList<T>.parse(const V: T; len: Integer; breaker: TBreakProc; copy: TCopyProc): Integer;
var
  pos, i: Integer;
begin
  pos := 0;
  for i := 0 to len - 1 do begin
    //
    if (breaker(V, i)) then begin
      //
      Add(copy(V, pos, i - pos));
      pos := i + 1;
    end;
  end;
  //
  if (pos < len) then
    Add(copy(V, pos, len - pos));
end;

// -- main --

var
  S: string;
begin
  ReadLn(S);
  //
  with (TParsedList<string>.Create()) do try
    //
    parse(S, length(S),
      (function(const V: string; pos: Integer): Boolean	begin
	 result := (' ' = V[pos + 1]) or ('.' = V[pos + 1]);
       end
      ),
      (function(const V: string; pos, len: Integer): string begin
	  result := copy(V, pos + 1, len);
       end
      )
    );
    //
    foreach(function(const V: string): string begin
	//
	result := copy(V, 2, MaxInt) + V[1];
      end
    ).foreach(
      function(const V: string): string begin
	//
	write(V, ' ');
      end
    ).Free();
    //
  finally
    Free();
  end;
end.