Сортировка столбцов матрицы методом линейной вставки Опции

[ТоРоПыШеЧкА]

Задание:
Написать главную программу и процедуру. В главной программе осуществляется ввод исходных данных, обращение к процедуре и вывод результатов.
Процедура оформляется в виде модуля.
Размеры матрицы и её элементы вводятся с клавиатуры. Элементы матрицы — натуральные числа. Все входные данные и результаты передаются в/из процедуру через список параметров, глобальные переменные использовать нельзя. Сортировать методом линейной вставки.
Вообще-то я новичок в этом деле.Проблема заключается в том, что при компиляции возникает ошибка ERROR 26, при вызове процедуры в главной программе.Помогите, пожалуйста!!!Что я делаю не так?

{текст модуля}
unit Sort;
interface
procedure VstavkaSort(var B: array of integer; M: integer);
implementation
procedure VstavkaSort(var B: array of integer; M: integer);
var i,x,k: integer;
begin
    for i:=0 to M do
    begin
    X:=B[i];
    k:=i;
      while (X<B[k-1]) and (k>=1) do
      begin
      B[k]:=B[k-1];
      k:=k-1;
      B[k]:=X;
      end;
    end;
end;
end.

{текст основной программы}
program zadacha;
uses crt,sort;
Var
  i,n,j,m: Integer;
  b: array [1..100,1..100] of integer;
begin
 write('Vvedite koli4estvo strok=');read(n);
 write('Vvedite koli4estvo stolbcov=');read(m);
 writeln('Vvedite e-ti massiva');
 for i:=1 to n do
  begin
   for j:=1 to m do
    read(b[i,j]);
   readln;
  end;
 vstavkasort(b,m);{Ошибка возникает в данной строке!!!}
 for i:=1 to n do
  begin
   for j:=1 to m do
    write(b[i,j]:3);
   writeln;
  end;
 readkey;
end.

Сообщение отредактировано: volvo - 2.02.2006 19:02