Модуль по работе с элементами массива

[RakNaGore]

Пишу модуль для работы с элементами массива, решил проверить его, сделав его, как программу. Столкнулся с проблемами.

В функции поиска минимального элемента:

Function FindMin (w : TArray) : integer;
var
 i : integer;
begin
 FindMin := w[1];
 for i := 1 to ChkArray(w) do if w[i] < FindMin then FindMin := w[i];
end;

Выдает ошибку: Error: Incompatible types: got "FindMin(TArray):SmallInt;" expected "LongInt" на строке for i := 1 to ChkArray(w) do if w[i] < FindMin then FindMin := w[i];

Тоже самое выдает в функции поиска максимального элемента на соответствующей строке:

Function FindMax (w : TArray) : integer;
var
 i : integer;
begin
 FindMax := w[1];
 for i := 1 to ChkArray(w) do if w[i] > FindMax then FindMax := w[i];
end;

Весь код:

PHP код:

PROGRAM Test;

USES
 Crt;

CONST
 n1 = 100;

TYPE
 TList = 0..n1;
 TArray = array[TList] of integer;

VAR
 w : TArray;
 i : integer;

Procedure EnterArray(n : integer; var w : TArray);
var
 i : integer;
 begin
  for i := 1 to n do
  begin
   Write('Enter ь', i,': ');
   ReadLn(w[i]);
  end;
 end;

Procedure ShowArray (n : integer; w : TArray);
var
 i : integer;
begin
 for i := 1 to n do WriteLn('Massive №', i,'= ', w[i]);
end;

Procedure Swap (var a, b : integer); {замена двух элементов массива местами}
var
  temp : integer;
 begin
  temp := a;
  a := b;
  b := temp;
 end;

Function ChkArray (var w : TArray) : integer; {проверка сколько всего непустых элементов в массиве}
var
  i, j : integer;
 begin
  for i := 1 to n1 do if w[i] <> 0 then j := i;
  if j <> n1 then ChkArray := j else ChkArray := n1;
 end;

Function FindMin (w : TArray) : integer;
var
 i : integer;
begin
 FindMin := w[1];
 for i := 1 to ChkArray(w) do if w[i] < FindMin then FindMin := w[i];
end;

Function FindMax (w : TArray) : integer;
var
 i : integer;
begin
 FindMax := w[1];
 for i := 1 to ChkArray(w) do if w[i] > FindMax then FindMax := w[i];
end;

Procedure DeleteByNum (w : TArray; a : integer);
begin
 repeat
  w[a] := w[a + 1];
  a := a + 1;
 until a = ChkArray(w);
 w[a] := 0;
end;

Procedure InsertByNum (w : TArray; a, b : integer);
var
 i, q, q1 : integer;
begin
 q := w[a];
 w[a] := b;
 q1 := w[a + 1];
 w[a + 1] := q;
 for i := a + 2 to n1 do
 begin
  q := w[i];
  w[i] := q1;
  q1 := w[i + 1];
  w[i + 1] := q;
 end;
end;
Function NumOfQuantile (w : TArray; a : integer) : integer; {поиск номера квантиля (квантиль это a), если его нету, то номер = 0}
var i, k : integer;
begin
 NumOfQuantile := 0;
 k := ChkArray(w);
 i := 1;
 repeat
  if a = w[i] then NumOfQuantile := i else i := i + 1;
 until i > k + 1; {k + 1, потому-что могут искать элемент "0"}
end;

Procedure CopyOfArray (w : TArray; var w1 : TArray);
var
 i : integer;
 begin
  for i := 1 to ChkArray(w) do w1[i] := w[i];
 end;

Procedure Sort1 (var w : TArray); {метод пузырька}
var
 i, j, k : integer;
begin
 k := ChkArray(w);
 for i := 1 to k - 1 do
 begin
  for j := (k + 1) - i downto 1 do if w[j] < w[j - 1] then swap(w[j], w[j - 1]);
 end;
end;

Procedure Sort2 (var w : TArray); {метод вставок}
var
 i, j, k, q : integer;
begin
 k := ChkArray(w);
 q := FindMin(w);
 w[0] := q - 1;
 for i := 2 to k do
 begin
  j := i;
  while w[j] < w[j - 1] do
   begin
    swap(w[i], w[i - 1]);
    j := j - 1;
   end;
  end;
end;

Procedure Sort3 (var w : TArray); {метод сортировки посредством выбора, самый простой}
var
 w1 : TArray;
 i, k, q : integer;
begin
 CopyOfArray(w, w1);
 k := ChkArray(w1);
 for i := 1 to k - 1 do
 begin
  q := NumOfQuantile(w1, FindMin(w1)); {находим номер минимального элемента};
  w1[i] := w1[q];
  DeleteByNum(w1, q);
 end;
end;

BEGIN
 EnterArray(5, w);
 Sort1(w);
 ShowArray(5, w);
END. 


[veniside]

> Can't take the address of constant expression

чё-то у вас все ошибки одинаковые, хотя в первых двух случаях должна быть ошибка "( expected", либо "Not enough actual parameters", если компилить дельфой.

А в третьем случае действительно, результат функции нельзя передавать по ссылке, только по значению.

Вобще, код уникален тем, что почти в каждой строчке логическая ошибка )

[RakNaGore]

Немного поправил код. С третьей ошибкой разобрался, вообще не знаю почему я там задал квантиль, как параметр-ссылку.

Но первые 2 ошибки остаются нерешенными. Очень интересно что же я там не так сделал.