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

Если Вы уверны, что в одномерном массиве будет элемент равный нулю, то
необходимо внести вот эти дополнения:
. .
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.