Напечатать в алфавитном порядке все слова из данного файла, имеющую заданную длину n

uses crt;
var
 s,sl:string;
 f:text;
 i,n,j,k: integer;
 a: array [1..100] of string;
 begin
 write('Задайте длину ');
 readln(n);
 assign(f,'C:\in.txt');
 reset(f);
 j:=1;
 while not (Eof(f)) do
       begin
       readln(f,s);
       s:=s+' ';
       sl:='';
       for i:=1 to length(s) do
           if (s[i]<>' ') and (s[i]<>',') and (s[i]<>'.') then sl:=sl+s[i] else
              begin
              if length(sl)=n then
                 begin
                 inc(j);
                 a[j]:=sl;
                 end;
              sl:='';
              end;
       end;
 close(f);
 k:=0;
 while k<=j do
       begin
       for i:=1 to j-1 do
           if a[i][1]>a[i+1][1] then
              begin
              sl:=a[i];
              a[i]:=a[i+1];
              a[i+1]:=sl;
              end;
       inc(k);
       end;
 for i:=1 to j do
     write(a[i],' ');
 readln;
 end.

 uses crt;
 var
 s,sl,sp,ss:string;
 f:text;
 i,n,j,k: integer;
 a: array [1..100] of string;
 begin
 write('Çàäàéòå äëèíó ');
 readln(n);
 assign(f,'D:\in.txt');
 reset(f);
 j:=1;
 sp:='QWERTYUIOPASDFGHJKLZXCVBNM¨ÉÖÓÊÅÍÃØÙÇÕÚÔÛÂÀÏÐÎËÄÆÝß×ÑÌÈÒÜÁÞ';
 ss:='qwertyuiopasdfghjklzxcvbnm¸éöóêåíãøùçõúôûâàïðîëäæýÿ÷ñìèòüáþ';
 while not (Eof(f)) do
       begin
       readln(f,s);
       s:=s+' ';
       sl:='';
       for i:=1 to length(s) do
           begin
           if pos(s[i],sp)<>0 then s[i]:=ss[pos(s[i],sp)];
           if (s[i]<>' ') and (s[i]<>',') and (s[i]<>'.') then sl:=sl+s[i] else
              begin
              if length(sl)=n then
                 begin
                 inc(j);
                 a[j]:=sl;
                 end;
              sl:='';
              end;
           end;
       end;
 close(f);
 k:=0;
 while k<=j do
       begin
       for i:=1 to j-1 do
           begin
           if a[i][1]>a[i+1][1] then
              begin
              sl:=a[i];
              a[i]:=a[i+1];
              a[i+1]:=sl;
              end;
           end;
       inc(k);
       end;
 for i:=1 to j do
     write(a[i],' ');
 readln;
 end.