Найти среднее арифметическое максимального и минимального по модулю элементов массива

Var 
mas:array[1..n] of real;
i,n:integer;
max,min,s:real;
Begin
readln(n);
Writeln(‘1:’);
    Readln(mas[1]);
mas[1]:=abs(mas[1]);
    Max:=mas[1];
    Min:=mas[1];
    For i:=2 to n do
    begin
    Write(‘mas[‘,i,’]:’);
    Readln(mas[i]);
        mas[i]:=abs(mas[i]);
        If mas[i]>max then max:=mas[i];
     If mas[i]<min then min:=mas[i];
    end;
s:=(max+min)/2;
    Writeln(s:6:2);
    readln;
End.

program Dekio;
const
n=10;
var
arr :array[1..n] of integer;
i,min,max :integer;
begin
randomize;
for i:=1 to n do
begin
arr[i]:=random(15)-5;
write(arr[i]:4);
end;
max:=abs(arr[1]);
min:=abs(arr[1]);
for i:=1 to n do
begin
if abs(arr[i])>max then
max:=abs(arr[i]);
if abs(arr[i])<min then
min:=abs(arr[i]);
end;
writeln;
writeln('Màêñ ',max,' Ìèí ',min);
writeln('Ðåçóëüòàò ',(max+min)/2:0:2);
end.

const
 n=10;
var
 arr :array[1..n] of integer;
 i,min,max :integer;
begin
 randomize;
 arr[1]:=random(15)-5;
 max:=abs(arr[1]);
 min:=abs(arr[1]);
 write(arr[1]:4);
 for i:=2 to n do
  begin
   arr[i]:=random(15)-5;
   write(arr[i]:4);
   if abs(arr[i])>max then
    max:=abs(arr[i]);
   if abs(arr[i])<min then
    min:=abs(arr[i]);
  end;
writeln;
writeln('Mакс ',max,' Мин ',min);
writeln('Результат ',(max+min)/2:0:2);
end.

Program bogdanustimov;
Uses Crt;
Var 
mas:array[1..50] of real;
i,n:integer;
max,min,s:real;
Begin
clrscr;
write('Koli4estvo:');
read(n);
Write('mas[1]:');
Read(mas[1]);
mas[1]:=abs(mas[1]);
Max:=mas[1];
Min:=mas[1];
For i:=2 to n do
begin
Write('mas[',i,']:');
Read(mas[i]);
mas[i]:=abs(mas[i]);
If mas[i]>max then max:=mas[i];
If mas[i]<min then min:=mas[i];
end;
s:=(max+min)/2;
Write(s:6:2);
readkey;
End.