сортировка методом шелла. Опции

[Korsar]

procedure Shellsort;
var i, j, incr: LongInt;
begin
incr := n div 2;
while incr > 0 do begin
for i := incr to n do begin
j := i-incr;
while j>0 do
if a[j] > a[j+incr] then begin
swap(a[j], a[j+incr]);
j:= j-incr
end
else
j := 0;
end;
incr := incr div 2;
end;
end;
Скажите пожалуйста почему после swap(a[j], выдает такую ошибку: error 89: ")" expected?

[volvo]

Потому, что в модуле System есть функция Swap, которая меняет местами старший/младший байты аргумента... А принимает она одно значение, а не 2... Вот поэтому после первого значения компилятор ждет скобку... Ты должен описать свою процедуру Swap, принимающую 2 параметра...

[Korsar]

Потому, что в модуле System есть функция Swap, которая меняет местами старший/младший байты аргумента... А принимает она одно значение, а не 2... Вот поэтому после первого значения компилятор ждет скобку... Ты должен описать свою процедуру Swap, принимающую 2 параметра...

А не могли бы вы подсказать как это сделать?

[volvo]

Procedure Swap(var a, b: integer);
var T: integer;
begin
  T := a; a := b; b := T;
end;

{ А дальше - твой ShellSort }
Procedure ShellSort;
...

[Korsar]

Procedure Swap(var a, b: integer);
var T: integer;
begin
  T := a; a := b; b := T;
end;

{ А дальше - твой ShellSort }
Procedure ShellSort;
...

Очень вам благодарен!!!