Помогите добрые люди

[Александр_Прог]

Задан текст, состоящий из строк произвольной длины. Строки разделяются одним или несколькими символами, называемыми разделителями. Разделители одинаковы для всего текста.
Текст заканчивается комбинацией двух специальных символов, отличных от разделителя.
Выполнить над текстом последовательность действий, указанную в задании.

а) Определить количество строк;
б) Сформировать новый текст, в котором строки упорядочены в лексикографическом порядке.


P.S. От всей души буду благодарен за помощь.

[Stilet]

упорядочены в лексикографическом порядке.

Это как?
Впрочем не вижу смысла телепатировать:

var s:string; a:array[1..100] of string;
  j,i,count:integer;

function foo(q,w:string):Boolean;
begin
// Здесь описывай условие твоего порядка.
 if [q и w в лексикографическом порядке] then foo:=false else foo:=true;
end;

begin  
 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];
   inc(i);
 end;
 for i:=1 to count do begin
  for j:=1 to count do begin
   if foo(a[i],a[j]) then begin
    s:=a[i]; a[i]:=a[j]; a[j]:=s;
   end;
  end;
 end;

  for j:=1 to count do begin
   writeln(a[j]); 
  end;

 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.