Составьте программу, проверяющую есть ли в двумерном массиве 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.