program sapxep_dodai;

uses crt;

var ten:array[1..100] of string;

     tg:string;

     n,i,j:byte;

begin

       clrscr;

       write('Nhap so hoc sinh: ');    readln(n);

       for i:=1 to n do

              begin

                     write('Nhap ten hoc sinh thu ',i,': ');   readln(ten[i]);

              end;

       for i:=1 to n-1 do

              for j:=i+1 to n do

                     if length(ten[i])>length(ten[j]) then

                            begin

                                   tg:=ten[i];

                                   ten[i]:=ten[j];

                                   ten[j]:=tg;

                            end;

       writeln('Thu tu la: ');

       for i:=1 to n do writeln(ten[i]);

       readln;

end.

Đây nhé bạn!