Проверьте, есть ли посреди данных N чисел нули. Вводится число N,

var
  x, j, n, i: integer;
  a: array [1..100] of string;
begin
  write('Введите кол-во чисел: ');
  read(n);
  writeln('Введите числа: ');
  for i := 1 to n + 1 do
   begin
    readln(A[i]);
    for j := 1 to length(A[i]) do
      if a[i][j] = '0' then inc(x);
   end;
  writeln('Кол-во нулей: ', x);
end.

Program Z_n;
var a:array[1..10000] of integer;
N,c,i:integer;
Begin
Readln(N);
For i:=1 to N do begin
Readln(a[i]); // вводите числа через enter
if a[i]=0 then c:=1;
end;
if c=1 then writeln('YES')
else writeln('NO');
end.