Разбор добавил Николай Мищенко

После того как считали данные, надо вложенным циклом проверять находится ли это число Х в данном столбце, если находится то выводим YES и выходим из внутреннего цикла, так же нужно сделать проверку, было ли это число в данном столбце, для этого после внутреннего цикла проверяем больше ли счетчик (который был во внутреннем цикле) n, если больше то выводим NO, ниже привиден этот вложенный цикл:

for j:=1 to n do
 begin 
  for i:=1 to n do
   if a[i,j]=x then
    begin
     writeln('YES');
     break;
    end;
  if i>n then
   writeln('NO');
 end;

1789
1
1789

YES