Сортировка массивов

var 
   i, n, x: integer; 
   a: array [1..10] of integer;
begin
   randomise;
   for i:= 1 to 10 do
   begin
      a[i]:= random(100);
      writeln('a[', i, ']=', a[i])
   end;
   writeln('x=');
   readln(x);
   n:= 0;
   for i:= 1 to 10 do
      if a[i] = x then n:= i;
   if n = 0
      then writeln ('Элемента со значением, равный заданному, в массиве нет')
      else writeln ('Индекс элемента, равного заданному, ',n)
end.

for i:= 1 to n-1 do
begin
   imax:= i;
   for j:= i+1 to n do if a[j]>a[imax] then imax:= j;
   x:= a[i];
   a[i]:= a[imax];
   a[imax]:= x;
end.

const
  n = 10;
var
  i, imax, j, x: integer;
  a: array [1..n] of integer;
begin
  randomize;
  writeln('Исходный массив:');
  for i := 1 to n do
    begin
      a[i]:= random(100);
      writeln('a[', i, ']=', a[i])
    end;
  for i := 1 to n - 1 do
    begin
      imax := i;
      for j := i + 1 to n do if a[j] > a[imax] then imax := j;
      if imax > i then
        begin
          x := a[i];
          a[i] := a[imax];
          a[imax] := x
        end
    end;
  writeln('Отсортированный массив');
  for i := 1 to n do writeln('a[', i, ']=', a[i]);
  readln
end.