Найти max и min элементы массива y и сформировать массив z из элементов массива y, находящихся между max и min y. Записать массив z в обратном порядке

Program asdadas;
Const
  N=80;
Var
  x,y,z: array [1..N] of real;
  i,Nz: integer;
  max,min,Cos1: real;
Begin
  Randomize;
  For i:=1 to N do
    x[i]:=random;  //Можно сделать ввод боллее крупных чисел
  Cos1:=cos(x[1]*x[1])*cos(x[1]*x[1]);
  For i:=1 to N do
    y[i]:=sin(x[i])+Cos1;
  Max:=y[1];
  Min:=y[1];
  For i:=1 to N do
    Begin
      If Max<y[i] then
        Max:=y[i];
      If Min>y[i] then
        Min:=y[i]
    End;  
  Nz:=N; //Количесвто элементов массива Z (Равно 80 - количесво максимальных и минимальных)
  For i:=1 to N do
    If (y[i]=Min) or (y[i]=Max) then
      dec(Nz);   
 For i:=1 to N do //Заполнение массива Z числами из Y в обратном порядке, минуя Min и Max
    If (y[i]<>Min) and (y[i]<>Max) then
      begin        
        z[Nz]:=y[i];
        dec(Nz)
      end;      
  write('Массив X: ');
  For i:=1 to N do
    write(x[i]:6:2);
  writeln;
  write('Массив Y: ');
  For i:=1 to N do
    write(y[i]:6:2);
  writeln;
    write('Массив Z: ');
  For i:=1 to N do
    write(Z[i]:6:2);      
End.