Помогите с несколькими функциями

[BDA]

Ошибки:

for i := 1 to high(ArraysInts) do
...
for i := 0 to High(ArraysInts) - 1 do
    for j := i + 1 to High(ArraysInts) do
...
asTrue:SetLength(ArraysInts,Length(ArraysInts)+100);

[Alexandr17-10]

Нет не в порядке код вызывает ошибку. Скажите как исправить

Type
  TArrayArmy=(asTrue, asFalse, asError);
Type
  TArraysInts=Array of integer;
...
Var
  ArrayMasivArmy1:Array of integer;
  IntArrayArmy:Integer;
...
Function GetArrayA(ArraysInts:TArraysInts):TArrayArmy;
Var i:Integer;
begin
  if ArraysInts[0] = -1 then
  begin
    result := asFalse;
    exit;
  end;
  for i := 0 to high(ArraysInts) do
    if ArraysInts[i] = -1 then
    begin
      result := asFalse;
      exit;
    end 
	else 
	  if ArraysInts[i] < ArraysInts[i - 1] then
      begin
        result := asError;
        exit;
      end;
  result := asTrue;
end;
Procedure Sortirovatj(ArraysInts:TArraysInts);
var
  tmp:Integer;
  i,j:Integer;
begin
  for i := 0 to High(ArraysInts) do
    for j := i+1 to High(ArraysInts) do
      if ArraysInts[i] > ArraysInts[j] then
      begin
        tmp := ArraysInts[i];
        ArraysInts[i] := ArraysInts[j];
        ArraysInts[j] := tmp;
      end;
end;

Procedure GetsArraysArmyM(ArraysInts:TArraysInts);
begin
  Case GetArrayA(ArraysInts) of
    asTrue:SetLength(ArraysInts,High(ArraysInts)+100);
	asFalse:Exit;
	asError:Sortirovatj(ArraysInts);
  end;
end;
...
Событие при начала миссии
IntArrayArmy:=0;
SetLength(ArrayMasivArmy1,101);
For i:=0 to high(ArrayMasivArmy1) do
    ArrayMasivArmy1[i]:=-1;
...
Событие при тренировки юнита
ArrayMasivArmy1[IntArrayArmy]:=aUnitID;
GetsArraysArmyM(ArrayMasivArmy1);
IntArrayArmy:=IntArrayArmy+1;
Где aUnitID возвращается ID номер юнита

Где тут ошибка. Ошибка не синтаксическая так как есть редактор который отлавливает синтаксические ошибки.

[BDA]

Я Вам уже перечислил исправленные строки. Они идут в том же порядке, что и у Вас в коде. Найдите их - это будет отличная тренировка

[Alexandr17-10]

Да исправлял переделывал исправлял. Ошибок избежать удалось но сам скрипт на массивы под 1000 плохо работает. Решил поискать и нашел статью. http://ru.wikipedia.org/wiki/Быстрая_сортировка
В принципе вот рабочая сортировка

procedure sort(var ar: array of Integer; low, high: integer);
var i, j: integer;
  m, wsp: Integer;
begin
  // repeat
  i:=low; 
  j:=high; 
  m:=ar[(i+j) div 2]; // Взятие среднего опорного элемента
  repeat
    while ar[i]<m do Inc(i); 
    while ar[j]>m do Dec(j); 
    if i<=j then begin
      wsp:=ar[i]; ar[i]:=ar[j]; ar[j]:=wsp;
      Inc(i); Dec(j);
    end;
  until i>j;
  // if (j - low) < (high - i) then begin 
  if low<j then sort(ar, low, j);
  // low := i;
  //   end 
  // else begin
  if i<high then sort(ar, i, high);
  // high := j;
  // end; 
  //until low = high;
end;

как сделать так чтобы ячейки в массиве после сортировки шли не от меньшего к большему а от большего к меньшему.

[ZX Spectrum-128]

Знаки поменять.

[Alexandr17-10]

Кажется не только знаки. Может ктонибудь сделает.

[ZX Spectrum-128]

http://ru.m.wikibooks.org/wiki/Приме...рой_сортировки
Дальше надо было смотреть по ссылкам.
Смотрите реализацию на паскале.