@Daniel, причината е във форума, а не в програмата [ i ] без интервали се интерпретира като italic

@Дани, имай предвид това като paste-ваш код. А относно задачата - ето 2 варианта:
по-бърз:

Var j : Integer;

....
j := 0;
for i := 1 to N do
  if (A[ i ] mod 2 = 0) and (A[ i ] > X) then begin
    j := i;
    C := A[ i ];
    break;
  end;
if j = 0 then
  writeln('Няма такова число')
else begin
  for i := j + 1 to N do
    if (A[ i ] mod 2 = 0) and (A[ i ] > X) and (A[ i ] < C) then
      C := A[ i ];
end;
writeln(C);

C := 1;
for i := 1 to N do
  if (A[ i ] mod 2 = 0) and (A[ i ] > X) and ((C = 1) or (C > A[ i ])) then begin
    C := A[ i ];
    break;
  end;
if C = 1 then
  writeln('Няма такова число')
else
  writeln(C);