Найти минимальный элемент. Найти максимальный элемент. Заменить все элементы, стоящие между минимальным и максимальным элементом — нулями — Pascal(Паскаль)

program Project1;
 
var a:array[1..8] of integer;
    i,min,max,z,z1,k:integer;
 
begin
min:=2;
max:=0;
randomize;
for i:=1 to 8 do
a[i]:=random(10);
 
for i:=1 to 8 do
begin;
write (a[i]:2);
end;
writeln;
//////////////////////////////////
for i:=1 to 8 do
begin
if a[i]<min then min:=a[i];
end;
for i:=1 to 8 do
if a[i]=min then z:=i;
 
writeln (z);
/////////////////////////////////
writeln ('min element ',min);
for i:=1 to 8 do
begin
if a[i]>max then max:=a[i];
end;
for i:=1 to 8 do
begin
if a[i]=max then z1:=i;
end;
writeln (z1);
writeln ('max element ',max);
 
////////////////////////////////////
if z<z1 then for i:=z to z1 do a[i]:=0 else for i:=z downto z1 do a[i]:=0;
for i:=1 to 8 do
begin;
write (a[i]:2);
end;
readln;
end.