Дан файл. Расположить слова в нём
  в порядке в порядке убывания слогов.


program no3;
uses crt;
const g=['А','а','Е','е','Ё','ё','И','и','О','о','У','у','Ы','ы','Э','э','Ю','ю','Я','я'];
var a,d,sl1,sl2 : string;
    i,l,k,j,n : longint;
    b : array [1..50] of string;
    f:text;
begin
  clrscr;
assign(f,'H:\Pascal\PABC\2.txt');
reset(f);
While not eof(f) do
 begin
 readln(f,a);writeln(a);L:=length(a);
  for n:=1 to l do
  if (a='') or (n=l)then
  if a[l]<>' ' then begin inc(l);a[l]:=' '; end;
  for i:=1 to l do
  if a[i]=' 'then begin
                    inc(j);b[j]:=d;d:='';
                  end
           else d:=d+a[i];
  for i:=1 to j-1 do
  for k:=i+1 to j do
  begin
    sl1:=b[i];
    sl2:=b[k];
    if (sl1[i] in g)<(sl2[k] in g) then begin
                                      b[i]:=sl2;
                                 b[k]:=sl1;
                                    end;
  end;
  for i:=1 to j do write(' ',b[i]);
  readln;
  end;
end.


Помогите плз,прога не работает