title: Sorting of Arrays Alphabetically?
body: <p>Say I have two arrays of string, named 'arrayone' and 'arraytwo'
  How would I go about sorting the 'arrayone' alphabetically (from A to Z), while still keeping relations to my second array.</p>
  
  <p>Incase you were wondering what is in 'arrayone' and 'arraytwo', 1 has surnames and 2 has the ages of each person. My end result is to add it to a richedit.</p>
  
  <p>Example of scenario:</p>
  
  <pre><code>Smith           25 
  Appleseed       32
  Gibbs           45
  </code></pre>
  
  <p>Must turn into:</p>
  
  <pre><code>Appleseed       32
  Gibbs           45
  Smith           25
  </code></pre>
  
  <p>Please no stringlist, keep it in simple array and in a procedure.</p>
  
  <p>UPDATE: I switched to record.</p>
  
  <p>Tried this code with no avail</p>
  
  <pre><code>for i := 0 to 26 do
  for j := 0 to 26 do
    if recordname.surname[j] &gt; recordname.surname[j+1] then begin
      line := recordname.surname[j];
      line[j] := recordname.surname[j+1];
      recordname.surname[j+1] := line;
    end;
  </code></pre>
  
  <p>It says Incompatible Types: 'Char' and 'String'</p>