Составьте программу, проверяющую есть ли в двумерном массиве a (n,n) столбцы, все элементы которых различны.

                      Const n=4;
Var x:array [1..n,1..n] of integer;
k,s,i,j:integer;
begin  
 randomize;   
 for i:=1 to n do begin      
  for j:=1 to n do begin     
       x[i,j] := random(100);      
      write(x[i,j]:6);   
     end;      
  writeln; 
   end; 
  for i := 1 to n do
    for j := 1 to n do   
   for k := j+1 to n do    
    if x[j,i]=x[k,i]
then 
writeln('NO') 
else 
writeln ('YES');
readln;
end.