Function SrAr(X: Array of Byte): Real;
Var summ: Integer;
     size: Byte;
Begin
size := SizeOf(X);
summ := 0;
For i := 1 to size do
     summ := summ + A[i];
SrAr := summ / size;
End;