Найти все элементы, большие среднего арифметического элемента в массиве S(8)

там после begin for i:=1 to 8 do readln(S[i]);

program qq;;var S:array[1..8] of integer;      i, SA, sum, k:integer;beginfor i:=1 to N do readln(S[i]);sum=0; k:=0; SA:=0;for i:=0 to 8 do begin    sum:=sum+A[i];    k:=k+1;end;SA:=s/k;if (S[i]>SA) then writeln(S[i]);end.