Поменять местами первый 0 и минимальный элемент массива

program massandpodpr;
uses crt;
const n=10;
type mas=array[1..N] of integer;
var a:mas;
sym: integer;
{Ввод массива случайным образом из диапазона -17, 21}
procedure vvod_massiv(var b: mas); var i: byte;
          begin
     for i:= 1 to n do
    b[i]:=random(21)-17;
end;
{Вывод массива на экран}
procedure vivod_massiv(var b: mas);
          var i: byte;
    begin
     for i:= 1 to n do
    write(b[i]:4);
end;
{Произведение до первого 0}
function proizv(b:mas):integer;
         var i: byte;
         s: integer;
         begin
         s:=0
         i:=1;
         while (b[i]<>0) and (i<=n) do begin
         s:=s*b[i];
         i:=i+1;   end;
         proizv:=s;
end;
{Основная программа состоит из обращений к процедурам и функциям}
Begin
clrscr; 
randomize;   
 vvod_massiv(a);    gotoxy(10,3);               
writeln('Isxodn massiv');
 vivod_massiv(a);   
sym:=proizv(a);
writeln ('Произведение до первого 0 =', sym:6);    readln;       
end.

program massandpodpr;
uses crt;
const n=15; {при n=10 практически нет нолей, можно даже взять 20}
type mas=array[1..N] of integer;
{Ввод массива случайным образом из диапазона -17, 21}
procedure Vvod_massiv(var b: mas);
var i: byte;
begin
  for i:= 1 to n do
  b[i]:=random(39)-17;
end;
{Вывод массива на экран}
procedure Vivod_massiv(b: mas);
var i: byte;
begin
 for i:= 1 to n do
 write(b[i]:4);
 writeln;
end;
{определим номер первого 0 в массиве}
Procedure Zero(b:mas; var i0:byte);
var i:byte;
begin
i0:=0;
i:=1;
while(i<=n) and (i0=0) do
if b[i]=0 then i0:=i
else i:=i+1;
if i0=0 then writeln('В массиве нет нолей!')
else writeln('Номер первого нулевого=',i0);
end;
{Произведение до первого 0}
function Proizv(b:mas;i0:byte):real;
{результат вещественный, просто он не входит в целые типы}
var i: byte;
    s: real;
begin
s:=1;{не 0, иначе всегда будет 0}
for i:=1 to i0-1 do
s:=s*b[i];
Proizv:=s;
end;
{Обмен первого 0 и минимального}
procedure Obmen(var b:mas;i0:byte);
var i,imin:byte;
    x:integer;
begin
imin:=1;
for i:=2 to n do
if b[i]<b[imin] then imin:=i;
writeln('Минимальный элемент=',b[imin],' его номер=',imin);
if (i0=0)or(b[imin]=0) then writeln('Обмена нет')
else
 begin
  x:=b[i0];
  b[i0]:=b[imin];
  b[imin]:=x;
  writeln('Обмен первого нулевого и минимального:');
  Vivod_massiv(b);
 end;
end;
{Основная программа состоит из обращений к процедурам и функциям}
var a:mas;
    i0:byte;
Begin
clrscr;
randomize;
vvod_massiv(a);
writeln('Исходный массив:');
vivod_massiv(a);
Zero(a,i0);
if i0=1 then writeln('До первого нуля нет элементов !')
else if i0>0 then writeln ('Произведение до первого 0 =', Proizv(a,i0):0:0);
Obmen(a,i0);
readln
end.