Сортировка: просеивание, Не могу найти ошибку!! Опции

[КрАсАвИцА]

Всем привет! Задача у меня просортировать строки матрицы методом просеивания. По аналогии нашедшейся здесь программы (http://forum.pascalnet.ru/index.php?showtopic=8208 ), сделала свою, но она почему съедает элементы, не могу понять почему. посмотрите пожалуста!

program lab6;
uses crt,pros;
Var
  i,n,j,m: Integer;
  a: matr;
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(a[i,j]);
   readln;
  end;
 sort(a,n,m);
 for i:=1 to n do
  begin
   for j:=1 to m do
    write(a[i,j]:3);
   writeln;
  end;
 readkey;
end.

Подключаемый модуль (где впринципе и лежит сортировка):
 
Unit pros;

Interface
 type matr= array[1 .. 100,1..100] of integer;
 procedure sort(var a: matr; n,m: integer);

Implementation
procedure sort;
var
 i,j,t,l : integer;
 begin
  for i:=1 to n do
   for j:=1 To m do
    begin
     t:= a[i,j];
     l:=j-1;
     while (t<a[i,l+1]) and (l>=0) do
      begin
       a[i,l+1]:= a[i,l];
       l:=l-1;
      end;
     a[i,l+1]:=t;
    end;
 end;
end.

Сообщение отредактировано: КрАсАвИцА - 13.01.2006 3:45