Заменить число в массиве на его адрес по возрастанию/убыванию

Const n=5;
Var A,B:array[1..5] of byte;
    i,j,t:byte;
    ch:char;
Begin
    write('v/u = ');readln(ch);{v-возр-ию,u-убыванию}
    For i:=1 to n do
    Begin
      A[i]:=random(99);
      write(A[i]:3);
    End;
    writeln;
    Case ch of
     'v':Begin
         For i:=1 to n do
          B[i]:=i;
         For i:=n downto 2 do
          For j:=2 to i do
           if A[j]<A[j-1] then
           Begin
             t:=A[j];
             A[j]:=A[j-1];
             A[j-1]:=t;
             t:=B[j];
             B[j]:=B[j-1];
             B[j-1]:=t;
           End;
          For i:=1 to n do
           A[i]:=B[i];
         End;
     'u':Begin
         For i:=1 to n do
          B[i]:=i;
         For i:=n downto 2 do
          For j:=2 to i do
           if A[j]>A[j-1] then
           Begin
             t:=A[j];
             A[j]:=A[j-1];
             A[j-1]:=t;
             t:=B[j];
             B[j]:=B[j-1];
             B[j-1]:=t;
           End;
          For i:=1 to n do
           A[i]:=B[i];
         End;
     End;
     For i:=1 to n do
      write(A[i]:4);
     readln;
End.

uses crt;
const c=1;//  2-убывание 1-возрастание
      n=5;
var max,madres:array [1..5] of integer;
    i,j:integer;
begin
for i:=1 to n do
 max[i]:=random(100);
if c=1 then
 begin
 for i:=1 to n do
  madres[i]:=1;
 for i:=1 to n do
  for j:=1 to n do
   if max[i]>max[j] then inc(madres[i]);
 end
else
 begin
 for i:=1 to n do
  madres[i]:=n;
 for i:=1 to n do
  for j:=1 to n do
   if max[i]>max[j] then dec(madres[i]);
 end;
for i:=1 to n do
 write(max[i]:3);
writeln;
for i:=1 to n do
 write(madres[i]:3);
end.