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

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] gt; 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)