Объясните пожалуйста алгоритм этой задачки.. (про запись предложения в файл в лексикографическом порядке)

uses crt;
const perem=[' '];
var
    f,g:text;
    i,j,k,l,m:integer;
    a,vs,vss:string;
    abc,b,d:array[1..50] of string[16];
begin
clrscr;
writeln('Дан символьный файл f, компоненты которого - малые латинские буквы и пробелы.   Слова файла f имеют не более шестнадцати букв. Записать эти слова в файл g в    лексикографическом порядке.');
writeln;
assign (f,'f.txt');
rewrite(f);
writeln('введите строку ->');
readln (a);
k:=length(a);
for i:=1 to k do
    begin
    write(f,a[i]);
    end;
close(f);
vs:='';
vss:='';
l:=0;
m:=0;
for i:=1 to k do
begin
if not (a[i] in perem) then
       begin
       vs:=vs+a[i];
       if vss<>'' then
            begin
            inc(m);
            b[m]:=vss;
            vss:=''
            end;
       end;
if (a[i] in perem) or (i=k) then
begin
vss:=vss+a[i];
if vs<>'' then
      begin
      inc(l);
      abc[l]:=vs;
      vs:=''
      end;
end;
end;
for i:=1 to l-1 do
  for j:=i+1 to l do
      if abc[j]<abc[i] then
      begin
      vs:=abc[j];
      abc[j]:=abc[i];
      abc[i]:=vs
      end;
writeln('Результат:');
for i:=1 to l do
write(abc[i],copy(b[i],1,1));
assign(g,'g.txt');
rewrite(g);
for i:=1 to l do
begin
write(g,abc[i],copy(b[i],1,1));
end;
close(g);
readln;
end.

for i:=1 to k do
begin
if not (a[i] in perem) then
       begin
       vs:=vs+a[i];
       if vss<>'' then
            begin
            inc(m);
            b[m]:=vss;
            vss:=''
            end;
       end;

if (a[i] in perem) or (i=k) then
begin
vss:=vss+a[i];
if vs<>'' then
      begin
      inc(l);
      abc[l]:=vs;
      vs:=''
      end;
end;
end;
for i:=1 to l-1 do
  for j:=i+1 to l do
      if abc[j]<abc[i] then
      begin
      vs:=abc[j];
      abc[j]:=abc[i];
      abc[i]:=vs
      end;