Найти максимальный и минимальный элементы массива между вторым и пятым нулевыми элементами

const n=10;
var 
k:array[1..n] of integer;
i,max,min:integer;
begin
 for i:=1 to n do begin 
  k[i]:=random(50);
  write(k[i]:3);
  end;
  writeln;
  max:=k[2];
  min:=k[2];
  for i:=2 to 5 do begin
   if k[i]>max then max:=k[i];
   if k[i]<min then min:=k[i];
   end;
   writeln('Максимальный элемент в интервале от 2 до 5 = ',max);
   writeln('Минимальный элемент в интервале от 2 до 5 = ',min);
end.

const n=25;
var
  k:array[1..n] of integer;
  i,max,min, kzero, indxzero2,indxzero5:integer;
begin
 for i:=1 to n do begin
  if random(4)=0 then k[i]:=0
  else  k[i]:=random(50);
  write(k[i]:3);
 end;
 WriteLn;
 
 {найдём 2-й и 5-й нулевые элементы (их индексы в массиве)}
 indxzero2:=-1;
 indxzero5:=-1;
 kzero:=0;
 for i:=1 to n do
   if k[i]=0 then begin
      inc(kzero);
      if kzero=2 then indxzero2:=i;
      if kzero=5 then indxzero5:=i; {тут можно сделать break;}
   end;
 
 if (indxzero2<0) or (indxzero5<0) then WriteLn('Недостаточно нулевых элементов в массиве!')
 else begin
  writeln('Поиск минимума и максимума между ',indxzero2,' ',indxzero5);
  max:=k[indxzero2+1];
  min:=k[indxzero2+1];
  for i:=indxzero2+1 to indxzero5 do begin
   if k[i]>max then max:=k[i];
   if k[i]<min then min:=k[i];
   end;
   writeln('Максимальный элемент в интервале = ',max);
   writeln('Минимальный элемент в интервале = ',min);
 end
end.