Кол-во строк/столбцов,в которых все элементы различны Опции

[Tribunal]

Дана целочисленная матрица размера M x N. Найти количество ее строк1|столбцов2, все элементы которых различны.

подскажите,что здесь неправильно?

Код

program pr;
uses crt;

const n=4;
      m=4;
type  stroka=array [1..n] of integer;
      matrix=array [1..n,1..m] of integer;
var a:matrix;
    k:stroka;
    i,j,c:integer;

procedure input(x:matrix);
begin
randomize;
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        x[i,j]:=random(10)+1;
        write(x[i,j]:4);
      end;
    writeln;
  end;
end;



begin
clrscr;

input(a);

for i:=1 to n do
begin
k[i]:=0;c:=0;
for j:=1 to m do
if (i<>j) and (a[i,j]=a[i,j]) then k[i]:=k[i]+1;
if k[i]=0 then c:=c+1;
end;

write(c);
end.