Нахождение числа, встречающегося во всех строках матрицы

type
  massiv = array [1..1000000] of longint;
var
  a : massiv;
  i, n, x, j, f, e : longint;
 
procedure swap (var a, b : longint);
var
  temp : longint;
begin
  temp := a;
  a := b;
  b := temp;
end;
 
procedure quickSort (var a : massiv; l, r : longint);
var
  middle, i, j : longint;
begin
  middle := a[l + random (r - l + 1)];
  i := l;
  j := r;
  while i <= j do begin
    while a[i] < middle do inc (i);
    while a[j] > middle do dec (j);
    if i <= j then begin
      swap (a[i], a[j]);
      inc (i); dec (j);
    end;
  end;
  if i < r then quickSort (a, i, r);
  if j > l then quickSort (a, l, j);
end;
 
begin
  assign (input, 'input.txt');
  reset (input);
  read (n);
  for i := 1 to n do
    for j := 1 to n do
      read (a[(i - 1) * n + j]);
  close (input);
  e := n;
  n := n * n;
  quickSort (a, 1, n);
 
  x := a[1];
  f := 1;
  for i := 2 to n do begin
    if f = e then begin
      writeln (x);
      halt;
    end;
    if a[i] = x then
      inc (f)
    else begin
      x := a[i];
      f := 1;
    end;
  end;
  writeln ('No');
end.