Procedure comp(A.s, B.s)
  If Len(A) >= Len(B)
    PrintN(A + #TAB$ + Str(Len(A)))
    PrintN(B + #TAB$ + Str(Len(B)))
  Else
    PrintN(B + #TAB$ + Str(Len(B)))
    PrintN(A + #TAB$ + Str(Len(A)))
  EndIf
EndProcedure

OpenConsole()
comp("abcd", "123456789")
Input()
CloseConsole()