Паскаль Выведите на экран номер минимального элемента

Если Вы уверны, что в одномерном массиве будет элемент равный нулю, то необходимо внести вот эти дополнения: . . var M : array [1..10, 1..10] of Byte; B : array [1..10] of Byte; R, C, i : Byte; . . for C := 1 to 10 do begin Write(B[C]:3); if B[C]=0 then i:=C; end; WriteLn; WriteLn('Индекс элемента равного нулю i=', i:3); keypressed end.