Упорядочить массив по возрастанию(проверить)

program q11;
const n=100;
type mAS=array[1..n] of real;
var a:mas;
    i,m,k:integer;
    q:real;
begin
  write('Введите количество элементов массива(до ',n,'): ');
  read(m);
  writeln('Введите элементы массива а[',m,']: ');
  for i:=1 to m do read(a[i]);
writeln('Исходный массив: ');
  for i:=1 to m do write(a[i]:6:2);
writeln;
writeln('Отсортированный мaссив: ');
repeat
k:=0;
  for i:=1 to n-1 do if a[i]>a[i+1] then
     begin
        q:=a[i];
        a[i]:=a[i+1];
        a[i+1]:=q;
        k:=k+1;
     end;
until k=0;
  for i:=1 to m do write(a[i]:6:2);
end.

Program MinElem;
Const  Nmax = 500;
Type  Ar = array[1..Nmax] of real;
Var  i,j,n,k : word;
     Xmin : real;
     X : Ar;
Begin
  Ввод  и  печать  n, X
  For i:=1 to n-1 do
    Begin
      Xmin:=x[i]; k:=i;
      For j:=i+1 to n do       { определение индекса k }
        If x[j]<Xmin then      { мин.элемента в подмассиве }
          Begin                { xi, xi+1, ..., xn }
            Xmin:=x[j]; k:=j   
          End;
        If k>i then            { обмен элементов }
          Begin                { xn и xk }
            x[k]:=x[i]; x[i]:=Xmin
          End;
    End;
  Печать массива Х
End.

Program Bubble;
Const  Nmax = 500;
Type  Ar = array[1..Nmax] of real;
Var  i,n,m : word;
     R : real;
     Cond : boolean;
     X : Ar;
Begin
  Ввод и печать n,X
  Cond:=true; m:=n;
  While Cond do
    Begin
      Cond:=false;
      For i:=1 to m-1 do
        If x[i]>x[i+1] then
          Begin
            R:=x[i]; x[i]:=x[i+1]; x[i+1]:=r;
            Cond:=true;
          End;
      Dec(m);
    End;
  Печать Х
End.