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
Что это значит и как это вылечить?