Задача на языке паскаль! Задан массив С из 10 элементов. Найти номер первого из элементов массива С, имеющего нулевое

var   min, i, x : integer;                   // объявляем переменные целочисленного типа.   arr : array [1..10] of integer;   // объявляем массив.Begin    writeln(\'Введите 10 целых чисел для заполнения массива:\'); // вывод строки на экран.   for i:= 1 to 10 do                         // начало цикла.      begin        readln(arr[i]);                        // заполняем элемент массива.        if ((arr[i] = 0) and (x = 0)) then          // если элемент первый нулевой.           begin             min := i;                // сохраняем номер элемента.             x := 1;                 // нужно, чтобы пропустить второй нулевой элемент, если он будет.           end;       end;  if (x = 0) then writeln(\'В массиве нет нулевых элементов.\')  else writeln(\'Номер первого нулевого элемента массива: \', min);End.