Сортировка строк

var a: array[1..100] of string;
        b: array[1..100] of string;
        s: string;
i, N, j, k, l: integer;
begin
Writeln('Введите количество фамилий: ');
Readln(N);
Writeln('Введите фамилии: ');
for i := 1 to N do
Readln(a[i]);
for i := 1 to N do
b[i] := copy(a[i], 6, length(a[i]) - 6);
for i := 1 to N do
    for j := N-1 downto i do
       if b[j+1] < b[j] then
       begin
        s := a[j];
        a[j] := a[j+1];
        a[j+1] := s;
       end;
Writeln('Отсортированные по алфавиту фамилии и инициалы: ');
for i := 1 to N do
Writeln(a[i]);
end.

for i := 1 to N do
begin
    for l := 1 to length(a[i]) do
    begin
       k := pos(' ', a[i]);
        if k = 0 then
        k := pos('.', a[i]);
    end;
    b[i] := copy(a[i], k + 1, length(a[i]) - k);
end;

  for i := 1 to N do
    for j := N - 1 downto i do
      if a[j + 1].Substring(a[j + 1].LastIndexOf(' ')) < a[j].Substring(a[j].LastIndexOf(' ')) then
      begin
        s := a[j];
        a[j] := a[j + 1];
        a[j + 1] := s;
      end;

// ...
  var Ch := new char[2]('.',' ');
  for i := 1 to N do
    for j := N - 1 downto i do
      if a[j + 1].Substring(a[j + 1].LastIndexOfAny(Ch)) < 
         a[j].Substring(a[j].LastIndexOfAny(Ch)) then
      begin
        s := a[j];
        a[j] := a[j + 1];
        a[j + 1] := s;
      end;