var a:array[0..100] of integer; //массив с числами
i,j,t,n,max,nmax:integer;
begin
{забиваем массив случайными числами от -100 до 100}
randomize;
for i:=0 to 100 do begin
a[i]:=-100+random(201);
end;

n:=101; {кол-во чисел в массиве}

{цикл сортировки}
for i:=0 to n-1 do begin
max:=-100; {это число должно быть равно самому минимальному значению в массиве, в данном случае: -100}
nmax:=0;    {номер ячейки где будет максимальное число}
for j:=i to n-1 do
if max<a[j] then begin max:=a[j]; nmax:=j; end;
t:=a[i]; a[i]:=max; a[nmax]:=t; {принцип "молоко-вода", но можно использовать алгоритм, которому не требуется доп. переменная, в данном случае "t"}
end;
{цикл сортировки закончен}

for i:=0 to 100 do
write(a[i],' ');
end;