разработка структурированных программ с использованием процедур в Delphy

[Makino]

Помогите, пожалуйста. Вот условие задачи:
"Ввести произвольную последовательность чисел. Упорядочить с помощью процедуры последовательность в порядке возраствния. Вывести результат упорядочивания и номера чисел в исходной последовательности."
Я упорядочила, а вывести номера чисел не получается!
Вот, что у меня получилось:

uses
SysUtils;

type
s=array[1..10] of integer;

procedure Sort(var a:s; var prom:integer);
var i,j:integer;
begin
FOR i:=1 TO 10 DO
FOR j:=i + 1 TO 10 DO
if a[j]<a[i] then
begin
prom:=a[i];
a[i]:=a[j];
a[j]:=prom;
end;
end;
var
aa:s;
i,k,n:integer;
ch:char;

begin
{ TODO -oUser -cConsole Main : Insert code here }
repeat
writeln('vvedit 10 chisel massiva : ');

for i:=1 to 10 do
read(aa[i]);
aa[i] := i;
writeln('massiv s do perestanovlennia : ');
i:=1;
while i<=10 do
begin
k:=1;
while (k<=5) and (i<=10) do
begin
write(aa[i]:5);
i:=i+1;
k:=k+1;
end;
writeln;
end;

begin
Sort(aa,i);
writeln('massiv posle perestanovki : ');
for i:=1 to 10 do
write(aa[i],' ');
readln;
end;
readln;
writeln('Budete ewe vvodit posledovatelnost? ');
readln(Ch);
until
Ch='n';
readln;
end.

[puporev]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n=5;
type
s=array[1..n] of integer;
ss=array[1..n] of byte;
procedure Sort(var a:s;var b:ss);
var i,j:byte;
    prom:integer;
    buf:byte;
begin
FOR i:=1 TO n-1 DO
FOR j:=i + 1 TO n DO
if a[j]<a[i] then
 begin
  prom:=a[i];
  a[i]:=a[j];
  a[j]:=prom;//сортируем массив значений
  buf:=b[i];
  b[i]:=b[j];//одновременно массив индексов
  b[j]:=buf;
 end;
end;
var aa:s;
    bb:ss;
    i:byte;
    ch:char;
begin
repeat
writeln('Vvedite ',n,' chistl massiva');
for i:=1 to n do
 begin
  read(aa[i]);
  bb[i] := i;
 end;
writeln('massiv s do perestanovlennia : ');
write('nom:');
for i:=1 to n do
write(bb[i]:5);
writeln;
write('znc:');
for i:=1 to n do
write(aa[i]:5);
writeln;
writeln;
Sort(aa,bb);
writeln('massiv posle perestanovki : ');
write('nom:');
for i:=1 to n do
write(bb[i]:5);
writeln;
write('znc:');
for i:=1 to n do
write(aa[i]:5);
writeln;
writeln;
readln;
writeln('Budete ewe vvodit posledovatelnost? ');
readln(Ch);
if ch='n' then exit;
until Ch='n';
end.

[Makino]

Огромное спасибо