Дана последовательность чисел. найти дана последовательность чисел. найти минимальное и максимальное число и вычислить их среднее арифметическое. в паскале

Uses crt;

Var A:array[1 ... 10]of integer;

q, w, i, k, j:integer;

begin

randomize;

for q: = 1 to 10 do

begin

A[q] : = random (256) ;

write (A[q]:4)

end;

for i : = 1 to 9 do

for j : = 1 to 10 - i do

if A[j] > A[j + 1] then begin

k : = A[j];

A[j] : = A[j + 1];

A[j + 1] : = k;

end;

for i:=1 to 10 do

w: = (A[1]+A[10]) / 2;

write (w)