надо написать задачку.

[Mr_Frost]

Пусть вводится 10 произвольных имен. Необходимо распечатать их в алфавитном порядке.Попытайтесь решить задачу, не сортируя сами имена. Поскольку требуется просто распечатать их в алфавитном порядке, заведите массив, содержащий порядковые номера имён. При необходимости перестановки переставляйте не сами имена, а их порядковые номера. Такой подход особенно удобен, когда приходится сортировать сложные и <<громоздкие>> объекты.

[alex_fcsm]

Если я правильно понял

uses crt;
const n=10;
var a:array[1..n] of string[20];
    ind:array[1..n] of byte;
    i,j,temp:byte;
    
begin
for i:=1 to n do
 begin
   readln(a[i]);
   ind[i]:=i;
 end;
   for i:=2 to n do
    for j:=n downto i do
      if a[ind[j-1]]>a[ind[j]] then
        begin
          Temp:=ind[j-1];
          ind[j-1]:=ind[j];
          ind[j]:=temp;
        end;
        
writeln('============================');
for i:=1 to n do
 writeln(a[ind[i]]);
end.

P.S. Читаем правила