прикладная математика

Program Sort;
Const
Nmax = 100;
Var
  X : Array [1..Nmax] Of Real;
  A : Real;
  n, k, i : Integer;

Begin
Writeln('Введите количество чисел');
Readln(n);
For i := 1 To n Do X[i]:=random(100);
{ Сортировка }
For k := 1 To n-1 Do
   For i := 1 To n-1 Do
     If X[i] > X[i+1] Then
       Begin
         A:=X[i];
         X[i]:=X[i+1];
         X[i+1]:=A
       End;
Writeln('Отсортированный массив чисел:');
For i:=1 To n Do
Write (X[i], ' ' );
End.

program Sort_Vybor1;
var A:array[1..100] of integer;
N,i,m,k,x : integer;

begin
write('количество элементов массива ');
read(N);
for i:=1 to n do A[i]:=random(100);
for k:=n downto 2 do {k- количество элементов для поиска max }
   begin
    m:=1; { m - место max }
    for i:=2 to k do if A[i]>A [m]then m:=i;
    {меняем местами элементы с номером m и номером k}
    x:=A[m]; A[m]:=A[k]; A[k]:=x;
   end;
for i:=1 to n do write(A[i],' '); {упорядоченный массив}
end.