После того как считали данные, надо вложенным циклом проверять находится ли это число Х в данном
столбце, если находится то выводим 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;