Найти max_min(Paskal)

[Мария_38]

задача на массив - "найти произведение наибольшего и наименьшего элементов последовательности".подскажите пожалуйста в чем ошибка.

uses crt;
var P,max,min,i:real; n:integer; a:array[2..12] of real;
begin
crlscr;
Repeat
readln(n);
Until(n>=2)and(n<=12);
begin
 For i:=1 to do
 Readln(a[i]);
   if max<a[i] then
   max:=a[i];
   if min>a[i] then
   min:=a[i];
end;
P:=max*min;
Writeln(P);
readkey;
end.

[Stilet]

 For i:=1 to do begin

[Grag]

При такой организации ввода данных

Repeat
readln(n);
Until(n>=2)and(n<=12);

очень велика вероятность возникновения ошибки "Out of range"

 For i:=1 to do
 Readln(a[i]);

Где граница цикла?

   if max<a[i] then
   max:=a[i];
   if min>a[i] then
   min:=a[i];

Переменные max и min не инициализированы, хотя изначально транслятор им присвоит значение 0, но это плохой стиль программирования...
И еще не существенное замечание: Паскаль пишется не Paskal, a Pascal...

[Мария_38]

спасибо,учту.

[Serebro]

Сообщение от Мария_38

задача на массив - "найти произведение наибольшего и наименьшего элементов последовательности".подскажите пожалуйста в чем ошибка.

uses crt;
var P,max,min,i:real; n:integer; a:array[2..12] of real;
begin
crlscr;
Repeat
readln(n);
Until(n>=2)and(n<=12);
begin
 For i:=1 to do
 Readln(a[i]);
   if max<a[i] then
   max:=a[i];
   if min>a[i] then
   min:=a[i];
end;
P:=max*min;
Writeln(P);
readkey;
end.

Определимся: какие границы у массива a?