Упорядочить данные по фамилии автора-PASCAL

[Newnata]

Упорядочить данные по алфавиту, напишите, пожалуйста, эту процедуру.

[Tayfun]

Вот примерный код...
Есть два минуса:
1. Оформлен как программа, а не процедура... (Это несущественно)
2. Упорядочивает только по первому символу...(Наиболее существенный)

program uporyad;
uses crt;
var
bb:boolean;
ss,s2,s:string;
c,t,i,j:integer;
a:array[1..200] of string;
b:array[1..200] of integer;
f:text;
begin
clrscr;
s:='abcdefghijklmnopqrstuvwxyz';
s2:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
assign(f,'FILEBASE.txt');
reset(f);
while not eof(f) do begin
t:=t+1;
readln(f,a[t]);
c:=length(a[t]);
bb:=false;
for i:=1 to 26 do begin
ss:=copy(s,i,1);
if ss=copy(a[t],1,1) then begin b[t]:=i; bb:=true; end;
end;
for i:=1 to 26 do begin
ss:=copy(s2,i,1);
if ss=copy(a[t],1,1) then begin b[t]:=i; bb:=true; end;
end;
if bb=false then b[t]:=27;
end;
for j:=1 to 27 do
for i:=1 to t do
if b[i]=j then writeln(a[i]);
close(f);
readkey;
end.

База береться из файла FILEBASE.txt. Одно слово- одна строка

[JTG]

А в Гугл сходить лень?

http://www.cyberguru.ru/programming/...ia-page12.html

Пардон, код по ссылке был с ошибкой и тоже сортирует по первому символу

type  DataItem = string[80];
       DataArray = array [1..150] of DataItem;

procedure QsString(var item: DataArray; count:integer);

       procedure qs(var it:DataArray;l, r: integer);
         var
         i, j: integer;
         x, temp: DataItem;
       begin
         x := it[(l+r) div 2];
         i := l;
	 j := r;
        
         repeat
           while it[i] < x do inc(i);
           while it[j] > x do dec(j);
           if i<=j then
           begin
             temp := it[i];
             it[i] := it[j];
             it[j] := temp;
             inc(i);
             dec(j);
           end;
         until i>=j;
         if i<r then qs(it,i,r);
         if j>l then qs(it,l,j);
       end;

begin
  qs(item,1, count);
end;


Var Source:DataArray;
    i,total:integer;
    fromf,tof:text;

Begin
  write('Locating files...');
  Assign(fromf,'in.txt');
  Assign(tof,'out.txt');
  Reset(fromf);
  ReWrite(tof);
  Writeln(' OK');

  write('Reading...');  
  While not(EOF(fromf)) do
  begin
    inc(total);
    Readln(fromf,Source[total]);  
  end;
  Writeln(' OK');

  write('Sorting...');
  QsString(Source,total);
  Writeln(' OK');

  write('Writing...'); 
  for i:=1 to total do
  begin
    Writeln(tof,Source[i]);
  end;
  Close(tof);
  Writeln(' OK');
  
  Close(fromf);
End.