Задан числовой массив, состоящий из 9 элементов. Найти и вывести на экран произведение всех элементов, меньших максимального.Надо составить программу.Помогите,пожалуйста 

program programma;uses crt;vara:array[1..100]of integer;i,max,p:integer;beginclrscr;p:=1;for i:=1 to 9 dobeginwrite('a[',i,'] = ');readln(a[i]);end;for i:=1 to 9 dobeginif a[i]> max then max:=a[i];end;for i:=1 to 9 dobeginif a[i]<> max thenp:=p* a[i]end;writeln;writeln('max = ', max);write('P = ',p);end.