Отсортировать слова в текстовом файле по популярности, вместе с количеством

 var f: text;
 b : array [0..100] of integer;
 l : array [1..100] of integer;
 c: array[1..100] of string;
 i,j,d,e,k,pr:integer;
 bul:boolean;
 s,st,prst,pth:string;
  begin
  pth:='D:\Program Files\Delphi7\Projects\input.txt';
  assign(f,pth);
  reset(f);
   b[0]:=0;
   i:=0;
   while not eof(f) do
     begin
        readln(f,s);
        st:=st+s;
     end;
     s:=st;
     close(f);
     writeln('ñîäåðæèìîå ôàéëà ',s);
    for i:=1 to length(s) do
      begin
         if s[i] = ' ' then
           begin
             inc(d);
             b[d]:=i;
           end;
      end;
      inc(d);
      b[d]:=length(s);
    for i:=0 to d-1 do
      begin
         bul:=true;
         if i=d-1 then st:=copy(s, b[i]+1, b[i+1]-b[i]) else st:=copy(s, b[i]+1, b[i+1]-b[i]-1);
         if i=0 then c[1]:=st;
         j:=1;
         pr:=1;
         for j:=1 to 100 do
           begin
              if (st<>c[j]) and (c[j] <> '') then
               begin
                 bul:=bul and true;
                 pr:=j;
               end
              else if st = c[j] then
                begin
                 bul:=bul and false;
                 pr:=j;
                 break;
                end else if c[j]='' then pr:=j;
                if c[j]='' then break;
           end;
           if bul = true then
             begin
              c[pr]:=st;
              l[pr]:=1;
             end else inc(l[pr]);
      end;
      for i:=1 to 100 do
         for j:=1 to i do
           begin
             if l[j] < l[j+1] then
                begin
                  pr:=l[j+1];
                  l[j+1]:=l[j];
                  l[j]:=pr;
                  prst:=c[j+1];
                  c[j+1]:=c[j];
                  c[j]:=prst;
                end;
             if l[j+1]=0 then break;
           end;
     for i:=1 to 100 do
       begin
          if l[i]=0 then break;
          writeln('slovo ', c[i], ' chastota ', l[i]);
       end;
       end.