Помогите, пожалуйста! Срочно нужно! Задайте массив из 10-ти целых случайных чисел в диапазоне от -10 до 10, а затем найдите среднее арифметическое и номер минимального элемента.

//PASCAL var   a:array[1..10] of integer;   i,min:integer; av:real; begin   min:=1;   randomize;   for i:=1 to 10 do begin     a[i]:=random(-10,10);     av:=av+a[i];     if a[i] <= a[min] then min:=i;   end;   av := av / 10;   writeln('Среднее арифметические: ', av:0:1,#13#10,'Минимальное: ', min);   readln; end.