Проверить, есть ли в заданной целочисленной последовательности a1 , a2 , …, aN элементы, равные нулю. Если есть, найти номер первого из них, если нет – выдать соответствующий текст — Pascal(Паскаль)

var
  number, index, zero, N: integer;
  Find: boolean = false;

begin
  zero := 0;
  writeln('Введите количество чисел');
  readln(N);
  for index := 1 to N do
  begin
    writeln('Введите ', index, '-е число ');
    readln(number);
    if (number = 0) and (Find = false) then
    begin
      zero := index;
      Find := true;
    end;
  end;
  if zero = 0 then
    writeln('Нулей нет')
  else
    writeln(zero, '-й элемент нулевой');
  readln

end.