1-ая вроде правильно, а во втором надо, можно после нахождения мах -
s:=0;
for i:=1 to 10 do
s:=s+a[i];
arif:=s/10;

перед этим в раздел var
arif,otvet:real;

непонял, зачем вы в конце пишете readln(max) если мах у вас уже найден?

далее просто otvet:=max-arif;