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

uses crt;
 
var
  i,j,a:integer;
  Mas:array[1..10] of integer;
  Razn:boolean;
begin
  Randomize;
  for i:=1 to 10 do
    begin
      Mas[i]:=Random(40);
      Write(Mas[i],' ');
    end; Writeln;
 
  razn:=true;
    
  for i:=1 to 9 do
    if razn then
      begin
        for j:=i+1 to 10 do
          if Mas[i]<>Mas[j] then
            Razn:=true
              else
                begin
                  Razn:=false;
                  break;
                end;
      end else break;
            
  if Razn then
    begin
      for i:=1 to 9 do
        for j:=1 to 9 do
          if Mas[j]>Mas[j+1] then
            begin
              a:=Mas[j];
              Mas[j]:=Mas[j+1];
              Mas[j+1]:=a;
            end;
      for i:=1 to 10 do
        write(Mas[i],' ');
    end else write('В массиве есть повторяющиеся элементы!');
 
end.