Паскаль, сортировка массива!

[vlad1991]

Люди помогите пожалуйста!
Как отсортировать массив методом максимума по убыванию???

[Sazary]

uses crt;
const n=10;
var
mas : array[1..n] of integer;
i,j,k,x : integer;

begin
clrscr;
randomize;
for i:=1 to n do
 begin
 mas[i] := random(50);
 write(mas[i]:3);
 end;
writeln;
writeln('-----');
{------}
for i:=1 to n do
  begin
  k := i;
  x := mas[i];
   for j:=i+1 to n do
     if mas[j]>x then
       begin
       k := j;
       x := mas[j];
       end;
  mas[k] := mas[i];
  mas[i] := x;
  end;
{----------}
for i:=1 to n do
 write(mas[i]:3);
readln;
end.

upd Опять вы создаете одинаковые темы в двух разделах?! Уже не первый случай, я смотрю.
Прочтите правила!

[vlad1991]

Большое спасибо за помощь!!!Очень мне помогли!!!!
Простите больше не буду!!!!!Как-то не подозревал, что так недьзя!=)
сори!

[capta1n]

Ну вообще данная сортировка называется сортировкой выбором, один со всеми:

program sort2;
uses crt;
const
 n = 23;
var
 A : array [1..n] of integer;
 x : integer;
 i,k,j : byte;
begin
 clrscr;
 Randomize;
 for i:=1 to n do
 begin
   A[i]:=i;
   write (A[i],' ')
 end;
 writeln;
 writeln;

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

 for i:=1 to n do write (A[i],' ');

 readln;
end.