Viết chương trình nhập vào danh sách họ tên học sinh trong lớp học. Sắp xếp danh sách này theo thứ tự tăng dần của độ dài họ tên Ai chỉ mình bài đó với🥺🥺🥺🥺🥺🥺🥺🤔🤔

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.