Поиск повторяющихся элементов в матрице

uses
  crt;
const
  n=3;{çäåñü ìåíÿåòå ïîðÿäîê ìàòðèöû òîëüêî íà íå÷åòíûå çíà÷åíèÿ}
type
  MyArr=array[1..n,1..n]of integer;
  Ch=array[1..n]of integer;
var
  a:MyArr;
  b:Ch;
  i,j,k,l,c,change,max:integer;
  temp:string;
{ôóíêöèÿ ïðîâåðêè çàïèñè â ìàññèâ}
function CanWr(b:Ch;max,temp:integer):boolean;
var
  i:integer;
  fl:boolean;
begin
  fl:=true;
  for i:=1 to max do
    if b[i]=temp then
    begin
      fl:=false;
      break
    end;
  Result:=fl
end;
{îñíîâíàÿ ïðîðàììà}
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì ìàòðèöó}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {íàõîäèì ýëåìåíòû êîòîðûå âñòðå÷àþòñÿ áîëåå...}
  temp:='';
  writeln('Íàéòè ýëåìåíòû êîòîðûå âñòðå÷àþòñÿ...');
  readln(change);
  max:=0;
  for i:=1 to n do
    for j:=1 to n do
    begin
      c:=0;
      for k:=1 to n do
        for l:=1 to n do
          if a[i,j]=a[k,l] then
            inc(c);
      if c=change then
        if CanWr(b,max,a[i,j]) then
        begin
          inc(max);
          b[max]:=a[i,j]
        end;
    end;
  {âûâîäèì ÷èñëà}
  if max>0 then
  begin
    writeln('×èñëà êîòîðûå âñòðå÷àþòñÿ ',change,' è áîëåå ðàç(à).');
    for i:=1 to max do
      write(b[i],' ');
    writeln
  end
  else
    writeln(' äàííîé ìàòðèöå òàêèõ ÷èñåë íåò!')
end.