Указание первоначального адреса элемента массива

[furymaxim]

Был дан массив из 3-х разрядных чисел,необходимо было найти суммы цифр каждого числа и выстроить их по убыванию с указанием их первоначальных адресов. например,в начале было число 526 ,стоял на 5ом месте исходного массива, сумма его цифр 13, он получился самым большим в новом массиве,но мы должны указать его начальное место,то есть "был на 5ом месте исходного массива"

program;
const n=10;
Type MyType=record
   number:integer;
   indexPrev:byte;
end;
Type ArrMyType = array[1..n] of MyType;
var
 i,j: integer;
 a:array[1..n] of MyType;
 
function f(x:integer):integer;
var
  d,s: integer;
begin
  s:=0;
  while x > 0 do
   begin
    d:= x mod 10;
    s:= s + d;
    x:= x div 10;
   end;
   f:=s;
end;

procedure swap(var x,y: integer);
   var t: integer;
 begin
    t := x;
    x := y;
    y := t
 end; 
 

begin
writeln('Исходный массив');
for i:=1 to n do
  begin
    a[i].number:=random(100)+500;
    a[i].indexPrev:=i; 
    write(i,' эл. = ',a[i].number,' ');
  end;
writeln;
writeln('Cумма цифр в числе,без сортировки');  
for i:=1 to n do
 a[i].number := f(a[i].number);
for i:=1 to n do
  write(' y ',i,' эл. = ',a[i].number, ' ');
//метод пузырька  
for i:=1 to n-1 do
 for j:=i+1 to n do
  if a[i].number < a[j].number then
   swap(a[i].number,a[j].number); 
writeln;   
writeln('Новый массив');
for i:=1 to n do
write(a[i].number,' ','первоначальный адрес = '); //???
end.

Как вывести первоначальный адрес?

[ViktorR]

Например, перед сортировкой, создай второй массив с порядковым номером, или используй двумерный: второй столбец - это порядковый номер элемента.
В процессе сортировки обрабатывай обе компоненты - либо второй массив, либо второй столбец...