[Bargest]

Код:

var fl:boolean;
...
for i:=0 to n-1 do
begin
 fl:=true;
 for j:=n-1 downto 1 do
 begin
  for k:=0 to j-1 do
    if a[i,j]=a[i,k] then
    begin
     fl:=false;
     break;
    end;
    if not fl then break;
 end;
   if fl then 
   begin
    //вывод массива
   end;
end;