**[**Back to SORTING SWAG index**]** **[**Back to Main SWAG index**]** **[**Original**]**

*{
> Does anyone know of a routine or code that would allow For a
> alphabetical sort?
Depends on what Type of sorting you want to do- For a very small list, a
simple BubbleSort will suffice.
}
***Const
**max = 50;
**Var
**i,j:Integer;
a : **Array**[1..max] **of String**;
temp : **String**;
**begin
For **i := 1 **to **50 **do
For **j := 1 **to **50 **do
if **a[i] < a[j] **then
begin
**temp := a[i];
a[i] := a[j];
a[j] := temp;
**end**; *{ if }
***end**.
*{
If it's a bigger list than, say 100 or so elements, or it needs to be
sorted often, you'll probably need a better algorithm, like a shell sort
or a quicksort.
}
*

**[**Back to SORTING SWAG index**]** **[**Back to Main SWAG index**]** **[**Original**]**