permanentloneliness

1) после выполнения фрагмента программы s будет равно 1

2) необходимо изменить так:

s:=0;

for j:=0 to 9 do

if A[j] > 8 then

s:=j;