Если имеется хотя бы одна пара совпадающих элементов, то упорядочить элементы массива по неубыванию

const
  n = 10;
type
  arr = array[1..n] of integer;
 
procedure swap(var a, b: integer);
var
  t: integer;
begin
  t := a;
  a := b;
  b := t
end;
 
procedure prn(s: string; const x: arr);
var
  i: integer;
begin
  writeln(s);
  for i := 1 to n do write(x[i]:4);
  writeln
end;
 
var
  a: arr;
  i, j, k: integer;
begin
  randomize;
  for i := 1 to n do a[i] := -29 + random(59);
  prn('Исходный массив:', a);
  i := 1;
  j := 2;
  while (i < n) and (a[i] <> a[j]) do
    begin
      inc(j);
      if j > n then
        begin
          inc(i);
          j := i + 1
        end
    end;
  if i < n then
    begin
      writeln('Есть совпадающие элементы.');
      for i := 1 to n-1 do
        begin
          k := i;
          for j := i+1 to n do if a[j] < a[k] then k := j;
          if k > i then swap(a[i], a[k])
        end;
    end
  else
    begin
      writeln('Нет совпадающих элементов.');
      for i := 1 to n div 2 do swap(a[i], a[n-i+1])
    end;
  prn('Преобразованный массив:', a)
end.