Найти max и min элемент последовательности, Помогите решить Опции

[Sequoia]

Здравствуйте. В общем паскаль изучали года 3 назад и я уже ничего не помню, прошу людей, которые разбираются, помочь с решением=)
Условие:
Заданна последовательность действительных чисел:
a_i (i=1-10)
Найти max и min элемент последовательности, а также произведение всех её элементов.
Спасибо)

[DarkWishmaster]

Здравствуйте. В общем паскаль изучали года 3 назад и я уже ничего не помню, прошу людей, которые разбираются, помочь с решением=)
Условие:
Заданна последовательность действительных чисел:
a_i (i=1-10)
Найти max и min элемент последовательности, а также произведение всех её элементов.
Спасибо)

Uses Crt;
var a:array[1..10] of real; i:byte; min,max,P:real;
Begin ClrScr;
for i:=1 to 10 do  //заполняем массив
  begin 
    write('a[',i,']='); 
    readln(a[i]);
  end;
min:=a[1];
max:=a[1];
P:=1;
for i:=1 to 10 do
 begin
     if a[i]>max then max:=a[i]; //находим макс.
     if a[i]<min then min:=a[i]; //находим мин.
     P:=P*a[i];   //произвидение
 end; 
Writeln('Max= ',max);
Writeln('Min= ',Min);
writeln('P= ',P);
readln;
end. 

[Sequoia]

Спасибо большое