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

[Flashcherry]

Дана целочисленная матрица размером M*N.Найти кол-во её стобцов,все элементы которых различны.

[capta1n]

program project;
label 1;
const
 m = 4;
 n = 5;
var
 a : array [1..m,1..n] of integer;
 count : byte;
 i,k,l : byte;
 flag : boolean;
begin
  randomize;
  for i:=1 to m do
   for k:=1 to n do a[i,k]:=random(10);
  for i:=1 to m do
  begin
    for k:=1 to n do write (a[i,k],'|');
    writeln
  end;
  count:=0;
  for k:=1 to n do
  begin
    flag:=false;
    for i:=1 to m-1 do
     for l:=i+1 to m do
      if a[i,k]=a[l,k] then
      begin
        flag:=true;
        goto 1
      end;
    1: if flag then continue
               else inc(count)
  end;
  writeln (count)
end.