Дан массив размера N. Вывести индексы массива в том порядке, в котором соответствующие им элементы образуют возрастающую последовательность — Pascal(Паскаль)

uses crt;

var
  m, k: array [1 .. 100] of integer;
  i, j, b, n: integer;

begin
  clrscr;
  write('N -> ');
  readln(n);
  write('Введите массив -> ');
  for i := 1 to n do
    read(m[i]);
  readln;
  for i := 1 to n do
    k[i] := i;

  for i := n downto 1 do
    for j := 1 to i - 1 do
      if m[j] > m[j + 1] then
      begin
        b := m[j];
        m[j] := m[j + 1];
        m[j + 1] := b;
        b := k[j];
        k[j] := k[j + 1];
        k[j + 1] := b;
      end;
  writeln;
  for i := 1 to n do
    write(k[i], ' ');
  readln;

end.