Вывести несколько слов и отсортировать их по количеству символов (по убыванию) — Pascal(Паскаль)

var
s1,s2:string;
x1, x2: integer;

begin
  readln(s1);
  readln(s2);
  x1 := lenght(s1);
  x2 := lenght(s2);
  if x1 < x2 then
    label1.caption := s2 + #13 + s1
  else
    label1.caption := s1 + #13 + s2;
end.