В строках из файла определить буквы, на которые начинаются слова, в порядке убывания частоты их употребления - Free Pascal

type
  let=record
    c:char;
    n:integer;
  end;
var
  f,g:text;
  c:char;
  s:string;
  t:let;
  l:array[byte] of let;
  i:integer;
  j,k:byte;
  b:boolean;
begin
 assign(f,'f');
 reset(f);
  assign(g,'g');
  rewrite(g);
 while not eof(f) do begin
   readln(f,s);b:=true;
   for i:=1 to length(s) do begin
     c:=s[i];
     if not (c in ['a'..'z','A'..'Z','А'..'Я','а'..'я','ё','Ё']) then b:=true
     else if b then begin
        j:=ord(c);
        inc(l[j].n);
        l[j].c:=c;
        b:=false;
      end;
    end;
  for k:=0 to 254 do
    for j:=k+1 to 255 do
      if l[k].n<l[j].n then begin
        t:=l[k];
        l[k]:=l[j];
        l[j]:=t;
      end;
      b:=false;
  for k:=0 to 255 do
    if l[k].n>0 then begin write(g,l[k].c);l[k].n:=0;b:=true;end;
  writeln(g);
 end;
  close(f);
  close(g);
end.