Работа с модулями. Сортировки. Pascal abc. Помогите.

[#Dum-Dum#]

Доброго времени суток.
Задали нам лабу по сортировкам и поискам на паскале. Все бы ничего, только я решила извратиться с модулями. Когда писала быструю сортировку и в основной программе вызывала ее, все работало, но когда я добавила еще сортировок, тут компилятор мой начал плакать и я не могу понять, почему. Подпрограммы проверяла - ошибок нет. Что-то с основной прогой.
Помогите пожалуйста, очень надо.
З. Ы. Если что - я дико буду тупить, так что в заранее прошу прощения за тормознутость и недопонимания, ибо я всего лишь 1 курс.
Вот сама программа:

Program Main;
Uses
  Fast_Sorting, Bubble_Sorting, Insert;
Var a: TVector;
    i: word;
    N: integer;
Procedure Line_Search(a:TVector; B:integer; N:integer);
  var i:integer;
begin
  for i:=1 to N do
  if a[i] = B then
  writeln('Элемент на позиции i',i)
  else
  writeln('Такого элемента нет в массиве.');
end;

begin
for i :=1 to Nmax do
      a[i]:=random(Nmax);
      
writeln('Количество элементов в массиве ');
read(N);      

for i :=1 to N do
      write(a[i]:8);

writeln();  
    
 
Q_Sort(a, 1, N);
for i:=1 to N do
write(a[i]:8);


B_Sort(a, N);
for i:=1 to N do
write(a[i]:8);


I_Sort(A, N);
for i:=1 to N do
write(a[i] : 8);
end.

[#Dum-Dum#]

На всякий случай прилагаю еще подпрограммы:

Unit Bubble_Sorting;
  interface
const
  Nmax=20000;
type
  TVector=array[1..Nmax] of word;
Procedure Bubble(var a:TVector; N:integer);
var i,j:integer;
      r:integer; 
  implementation
Procedure Bubble(var a:TVector; N:integer);
var i,j:integer;
      r:integer;
begin
for i:=1 to N do
for j:= 1 to N-i do
if a[j]>a[j+1] then
begin
r:=a[j+1];
a[j+1]:=a[j];
a[j]:=r;
end;
Bubble(a, N);
end;
end.

Unit Fast_Sorting;
  interface
const
  Nmax=20000;
type
  TVector=array[1..Nmax] of word;
Procedure Q_Sort(Var a: TVector;
                      st, fn: word);
  implementation
Procedure Q_Sort(Var a: TVector;
                      st, fn: word);
  Var flag: boolean;
      i, j: word; c: word;
begin
  if st<fn then
    begin
     i:=st;
     j:=fn;
     flag:=true;
    while i<j do
      if flag then
        begin
        while a[i]<a[j] do dec(j);
        c:=a[i];
        a[i]:=a[j];
        a[j]:=c; 
        flag:=not flag;
        inc(i);
        end
  else
  begin
        while a[i]<a[j] do inc(i);
        c:=a[i];
        a[i]:=a[j];
        a[j]:=c; 
        flag:=not flag;
        dec(j);
        end;
 Q_Sort(a, st, i-1);
 Q_Sort(a, j+1, fn);
 end;
 end;
end.

Unit Insert;
  interface
  Const Nmax = 20000;
Type TVector = array[1..Nmax] of integer;
Var A: TVector;
    N: integer;
    i: integer;

implementation
Procedure I_Sort(var A:Tvector; N:integer);
 var i, j, r:integer;
begin
for i:=2 to N do
for j:= 1 to i-1 do
if a[i+1-j]<a[i-j] then
  begin
  r:=a[i-j];
  a[i-j]:=a[i+1-j];
  a[i+1-j]:=r;
  end;
end;

begin
for i:=1 to Nmax do
a[i]:=random(Nmax);
writeln('Введите размерность массива ');
read(N);
for i:=1 to N do
write(a[i] : 6);
writeln();
I_Sort(A, N);
for i:=1 to N do
write(a[i] : 8);
end.

[type_Oleg]

Так надо же писать, что сообщает компилятор..

-- У вас вызывается B_Sort, а она нигде не описана.
-- Вызывается I_Sort, и она не описана в разделе interface. А из раздела implementation она не видна.
-- И почему тип TVector описывается в каждом модуле? Ну ладно, так бы прокатило, только если одинаково. А он в двух модулях - массив of Word, а в третьем - массив of Integer

[#Dum-Dum#]

Сообщение от type_Oleg

Так надо же писать, что сообщает компилятор..

-- У вас вызывается B_Sort, а она нигде не описана.
-- Вызывается I_Sort, и она не описана в разделе interface. А из раздела implementation она не видна.
-- И почему тип TVector описывается в каждом модуле? Ну ладно, так бы прокатило, только если одинаково. А он в двух модулях - массив of Word, а в третьем - массив of Integer

О, спасибо большое) Это я исправила)))
Только он выделяет вот эту строчку
и говорит "неправильный тип параметров подпрограммы"...

Q_Sort(a, 1, N)

[Serge_Bliznykov]

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

я сомневаюсь, что Вы исправили это:

Сообщение от type_Oleg

-- И почему тип TVector описывается в каждом модуле? Ну ладно, так бы прокатило, только если одинаково. А он в двух модулях - массив of Word, а в третьем - массив of Integer

у Вас ТОЧНО TVector описан ОДИН раз на все ваши программы/модули ?!

если да - выкладывайте исправленный текст, посмотрю, что не так..