Где тут ошибка?, плохо дело :( Опции

[wilin]

Здравствуйте! Опять с тупыми вопросами, наверно. В общем, есть такая задача, где нужно найти столбец в матрице с повторяющимися элементами. Подумала, что элементы столбцов я сначала отсортирую, потом проверю, есть ли одинаковые.

const
 n=6; { Количество столбцов }
 m=5; { Количество строк массива }
 k=20;

var
 a:array[1..n, 1..m] of integer;
 i,j,min,t,d:integer;

begin
 randomize;
 for i:=1 to n do
   for j:=1 to m do
     a[i,j]:=random(k);

 for j:=1 to m do
 begin
 for i:=1 to n do
  begin
   for i:=1 to n-1 do begin

   min:=i;
   for d:=i+1 to n do
   if a[d]<a[min] then min:=d;

   t:=a[i];
   a[i]:=a[min];
   a[min]:=t;
   end;
  if a[i]=a[i+1] then writeln ('da',' ',j);
  end;




     for i:=1 to n do begin
     for j:=1 to m do
     write(a[i,j],' ');
     writeln;    end;
           readln;

end.

У меня стоит FPC IDE, при попытке загрузиться выводит ошибку Incompatible types: got array of smallint excepted

Что это значит и как это вылечить?