program l52;

{$APPTYPE CONSOLE}

uses SysUtils;
type
Tcolumn=array[1..12] of integer;
var
i,j,nn:integer;
N,V:array[1..14] of Tcolumn;
function ExN(X:Tcolumn):boolean;
var i,j:integer;
begin
result:=true;
for i:=1 to 12 do for j:=1 to i do if (i<>j) and (X[i]=X[j]) then
begin
result:=false;
break;
end;
end;
begin
randomize;
for i:=1 to 14 do for j:=1 to 12 do v[i][j]:=random(100);

for i:=1 to 12 do begin
 writeln;
 for j:=1 to 14 do begin write(v[j][i],' '); if V[j][i]<10 then write(' ');
 end;
end;

nn:=0;
for i:=1 to 14 do
if ExN(V[i]) then begin
inc(nn);
N[nn]:=V[i];
end;
writeln;writeln;
writeln('------'); writeln('New Matrix');
for i:=1 to 12 do begin
 writeln;
 for j:=1 to nn do begin write(N[j][i],' '); if N[j][i]<10 then write(' ');
 end;
end;

readln;
end.