Ввести массив слов А(N) и упорядочить его по возрастанию длин строк — Pascal(Паскаль)

var a:array[1..100] of string;
     n,i,j:byte;
     s:string;
.....................................     
for i:=1 to n-1 do
for j:=i+1 to n do
if length(a[i])>length(a[j]) then
  begin
   s:=a[i];
   a[i]:=a[j];
   a[j]:=s;
 end;