Найти количество строк и столбцов матрицы, все элементы которых различны

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const
  n=4;{количество строк}
  m=4;{количество столбцов}
var
  a:array[0..n, 0..m]of integer;
  i,j,k,temp,rc,cc:integer;
  fl:boolean;
begin
  try
    Randomize;
    {задаем массив}
    writeln('Array:');
    for i:=0 to n do
    begin
      for j:=0 to m do
      begin
        a[i,j]:=random(16)-4;
        write(a[i,j]:3,' ');
      end;
      writeln;
    end;
    {считаем строки}
    rc:=0;
    for i:=0 to n do
    begin
      fl:=true;
      for j:=0 to m do
        for k:=0 to m do
          if (a[i,j]=a[i,k]) and (k<>j) then
            fl:=false;
      if fl then
        inc(rc)
    end;
    {считаем столбцы}
    cc:=0;
    for j:=0 to m do
    begin
      fl:=true;
      for i:=0 to n do
        for k:=0 to n do
          if (a[i,j]=a[k,j]) and (i<>k) then
            fl:=false;
      if fl then
        inc(cc)
    end;
    Writeln('Rows: ',rc,' ','Cols: ',cc);
    ReadLn
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.