Массив из 11 элементов задан на интервале [-10;12]. Вывести значение максимального элемента и его порядковый номер

var a: array [1..11] of integer;

i,max,j:integer;

begin

 max:=0;

 j:=1;

 for i:=1 to 11 do a[i]:=random(-10,12);

 max:=a[1];

  for i:=1 to 11 do if a[i]>max then begin

    max:=a[i];

    j:=i;

  end;

  writeln('мaксимальный элемент массиа равен',max);

   writeln('его номер равен',j)

end.