модуль, процедура, переменные

[Anserone]

доброго времени суток, создаю модуль для сортировки массивов, и запнулся фактически в самом начале. а именно
в модуль будет передаваться массив и количество элементов массива
примерно так:

interface
type massiv=array[1..n] of real;
procedure bubls(var: a:massiv;n:integer);

загвоздка вот в чем не могу как объявить кол-во элементов в массиве.
ведь количество элементов массива всегда будет разным при включении модуля. как лучше сделать? приведите пример или ссылку на исходники похожей задачи, пожалуйста.

[Anatole]

Объявляй процедуры своего модуля по следующему образцу:

procedure bubls(var: a:array of real;n:integer);

тогда сможеш передавать массивы различной длины. только учти, что индексация таких массивов в процедуре начинается с 0

[Grag]

Можно это решить несколько проще... ТурПас поддерживает открытые массивы. Этот массив представляет собой формальный параметр подпрограммы, описывающий базовый тип элементов массива, но не определяющий его размерности и границы.

Procedure Sort(OpenArray:array of integer);

В подпрограмме этот параметр будет трактоваться как одномерный массив с нулевой нижней границей, а верхняя граница массива может быть определена с использованием функции HIGH.

Пример выглядит так

Procedure Sort(Arr:array of integer)
var
  i:integer;
begin 
  for i:=0 to HIGH(Arr) do
    begin
      .......
      .......
    end;
  ............
  ............
end;

[Anserone]

огромное спасибо=)