Ответ:

Изменить нужно строку: if a[i]<max

Объяснение:

Но если полностью изменять то еще нужно присвоить максимальное число которое может встретиться в программе то есть

max:=99999999

for i:=2 to 10 do

if a[i]<max then max:=a[i]