Работа с текстом, запутался...

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

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

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

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;
end.