1) после выполнения фрагмента программы s будет равно 1
2) необходимо изменить так:
s:=0;
for j:=0 to 9 do
if A[j] > 8 then
s:=j;
