Сортировка Шейкера для строкового типа данных

[Kovax]

Цель задачи состоит в сортировке букв по возрастанию. Имеется сортировка Шейкера для чисел по возрастанию:

Program ShakerSort;
Var A       : array[1..1000] of integer;
    N,i,j,p    : integer;       
    Min, Max : integer;
Begin
 {Определение размера массива A - N) и его заполнение}
 writeln('Введите количество элементов: ');
 readln(n);
 for i:=1 to n do begin
 writeln('Введите элемент массива: ');
 readln(a[i]);
 end;
 {сортировка данных}
 for i:=1 to n div 2 do
  begin
   if A[i]>A[i+1] then
   begin
    Min:=i+1;
    Max:=i;
   end
   else
   begin
    Min:=i;
Max:=i+1;
   end;
   for j:=i+2 to n-i+1 do
   if A[j]>A[Max] then
    Max:=j
   else
   if A[j]<A[Min] then
    Min:=j; 
   {Обмен элементов}
    P:=A[i];
    A[i]:=A[min];
    A[min]:=P;
    if max=i then
    max:=min;
    P:=A[N-i+1];
    A[N-i+1]:=A[max];
    A[max]:=P;
  end;
 {Вывод отсортированного массива A}
 writeln('Вывод отсортированного массива: ');
 for i:=1 to n do begin
 writeln(a[i]:5);
end;
End.

Как можно его преобразовать для строкового (буквенного) типа данных?
Заранее благодарен.

[Kovax]

Может и реально сделать, но как к примеру сделать "A[N-i+1]" для букв?

[Mad_Cat]

аналогично как и для цифр)))

Program ShakerSort;
Var A       : string;
    N,i,j   : integer; 
    p:char;      
    Min, Max : integer;
Begin
 {Определение размера массива A - N) и его заполнение}
 readln(a);
n:=length(a);
 {сортировка данных}
 for i:=1 to n div 2 do
  begin
   if A[i]>A[i+1] then
   begin
    Min:=i+1;
    Max:=i;
   end
   else
   begin
    Min:=i;
Max:=i+1;
   end;
   for j:=i+2 to n-i+1 do
   if A[j]>A[Max] then
    Max:=j
   else
   if A[j]<A[Min] then
    Min:=j; 
   {Обмен элементов}
    P:=A[i];
    A[i]:=A[min];
    A[min]:=P;
    if max=i then
    max:=min;
    P:=A[N-i+1];
    A[N-i+1]:=A[max];
    A[max]:=P;
  end;
 writeln('Вывод : ');
 writeln(a);
end;
End.

[Kovax]

Большое спасибо, буду разбираться.