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