В массиве найти минимальное, максимальное и среднее арифметическое значение элементов

const
  n = 52;
 
type 
  Arr = array [1..n] of real;
 
var
  A : arr;
  i : integer;  
 
function AMax (A : Arr) : real;
var
 i : integer;
 max : real; 
begin
 max := A[1];
 for i := 1 to 52 do
  if A[i] > max then max := A[i];
 AMax := max; 
end;
 
function AMin (A : Arr) : real;
var
 i : integer;
 min : real; 
begin
 min := A[1];
 for i := 1 to 52 do
  if A[i] < min then min := A[i];
 AMin := min; 
end;
 
function Asr (A : Arr) : real;
var
 i : integer;
 sr : real; 
begin
 sr := 0;
 for i := 1 to 52 do
  sr := sr + A[i];
 Asr := sr/52; 
end;
 
begin
Writeln('Исходный массив: ');
for i := 1 to n do
 begin
 A[i] := (i*i + 1)*(sin(1/2)/(i*i*i + 1));
 if i mod 7 = 0 then Writeln(A[i]:0:2, ' ') 
  else Write(A[i]:0:4, ' ');
 end;
Writeln;
Writeln('Максимальный элемент: ', AMax(A):0:4); 
Writeln('Минимальный элемент: ', AMin(A):0:4); 
Writeln('Среднее арифметическое: ', Asr(A):0:4); 
end.