Ошибка в программе. Массивы

[RECREATOR]

var
  Arr: array [1..n] of Integer;
  I, MaxIndex, MaxElementIndex, Temp: Integer;
begin
  MaxIndex := n;
  while MaxIndex > 1 do
  begin
    MaxElementIndex := 0;
    for I := 1 to MaxIndex do
      if Arr[I] > Arr[MaxElementIndex] then
        MaxElementIndex := I;
    if MaxIndex <> MaxElementIndex then
    begin
      Temp := Arr[MaxIndex];
      Arr[MaxIndex] := Arr[MaxElementIndex];
      Arr[MaxElementIndex] := Temp;
    end;
    Dec(MaxIndex):
  end;
end;

[Карась]

Arr: array [1..n] of Integer;

И чему равно n ? Надо или дописать раздел констант...
Const n = 10; ...... или вместо n написать везде число.

    end;   
    Dec(MaxIndex):   
  end;   
end;

После Dec(MaxIndex): нкдо поставить ;
А после последнего End нужна точка...

Итого:

const n = 10;
var
  Arr: array [1..n] of Integer;
  I, MaxIndex, MaxElementIndex, Temp: Integer;
begin
  MaxIndex := n;
  while MaxIndex > 1 do
  begin
    MaxElementIndex := 0;
    for I := 1 to MaxIndex do  
      if Arr[i] > Arr[MaxElementIndex] then
        MaxElementIndex := I;
    if MaxIndex <> MaxElementIndex then  
    begin
      Temp := Arr[MaxIndex];
      Arr[MaxIndex] := Arr[MaxElementIndex];
      Arr[MaxElementIndex] := Temp;
    end;
    Dec(MaxIndex);
  end;
end.

АДД: 30 сек работы с компилятором.....

[RECREATOR]

Const N=100
var x: ARRAY [1..N] OF REAL

Упорядочить массив Х по неубыванию (т.е переставить его элементы так, чтобы для всех К выполнялось х(к)<=х(к+1) используя следующий алгоритм сортировки(упорядочивания): сортировка выбором: отыскивается максимальный элемент и переносится в конец массива; затем этот метод применяется ко всем элементам массива кроме последнего(он уже находитсяна своем окончательном месте)

[SunKnight]

Э-э-э-э-э... Массив то незаполнен, какие вычисления могут быть в пустом массиве?
Я встречал такое описание массива: var ARR:array of array of integer; - это массив без определения кол-ва элементов.

[Dunpeal]

procedure TForm1.Button1Click(Sender: TObject);
const n=50;
var Arr: array [1..n] of Integer;
    MaxIndex,i,temp:integer;
begin
  randomize;
  for i:=1 to n do
    begin
      Arr[i]:=random(300);
      Label1.Caption:=Label1.Caption+' '+IntToStr(Arr[i]);
    end;
  MaxIndex:=n;
  while MaxIndex>1 do
    begin
    for i:=MaxIndex downto 1 do
      if Arr[MaxIndex]<Arr[i] then
        begin
          temp:=Arr[MaxIndex];
          Arr[MaxIndex]:=Arr[i];
          Arr[i]:=temp;
        end;
      dec(MaxIndex);
    end;
  for i:=1 to n do
    Label2.Caption:=Label2.Caption+' '+IntToStr(Arr[i]);
end;

Label для проверки, в первом - оригинальный массив, во втором - уже отсортированный
Код получился почти один в один, но у меня хоть работает!

[Dunpeal]

SunKnight
var ARR:array of array of integer; - это описание двумерного динамического массива...
Кстати да. Чтобы не ограничивать пользователя можно ввести одномерный динамический массив

var ARR:array of integer;

И при вводе нового элемента увеличивать его размерность

i:=i+1;
SetLength(ARR,i);

i-количество элементов массива.