Определить среднее арифметическое положительных чисел вне минимального и максимального значений массива

uses crt;
const n=10;
var a:array[1..n] of integer;
    smax,smin,min,max,i:integer;
    rez,sum,sum1,sred:real;
begin
writeln('Ïîèñê ìèíèìàëüíîãî è ìàêñèìàëüíîãî ýëåìåíòà ìàññèâà');
writeln('Ââåäèòå  â îäíîé ñòðîêå ýëåìåíòû ìàññèâà ',n,' öåëûõ ÷èñåë:');
writeln('è íàæìèòå <Enter>');
write('->');
for i:=1 to n-1 do
read(a[i]);
readln(a[n]);
{поиск минимума и максимума}
min:=a[i];
max:=a[i];
for i:=1 to n do
  Begin
    If a[i]>max then   
      Begin
       max:=a[i];
      End;
    If a[i]<min then    
      Begin
       min:=a[i];
     end;
    end;
 write('Максимальный элемент: ',max:7);
 writeln;
 write('Минимальный элемент: ',min:7);
 writeln;
 for i:=1 to min do
 sum:=sum+a[i];
 for i:=1 downto max do
 sum1:=sum1+a[i];
 rez:=0;
 for i:=1 to n do
rez:=rez+a[i];
sred:=rez/n;
writeln('Среднее арифметическое положительных числел: ',sred:6:2);
 readln;

uses crt;
var a:array[1..10] of integer;
min,max,i:integer;
sum,sum1:real;
begin
 clrscr;
 randomize;
  max:=0;
  min:=0;
  sum:=0;
  sum1:=0;
     for i:=1 to 10 do begin a[i]:=random(50); write(a[i]:3); sum1:=sum1+a[i]; end;
     Sum:=sum1/10;
         for i:=1 to 10 do
                         If a[i]>max then max:=a[i];
     min:=max;
         for i:=1 to 10 do
                         If a[i]<min then min:=a[i];
writeln;
writeLn('Max: ',max:3);
writeLn('Min: ',min:3);
writeln;
writeln('srednee  ',sum:5:3);
readln;
end.