Паскаль!! Заполните массив случайными числами и найти минимальный и максимальный элементы массива и их номера. Пример: Массив: 1 2 3 4 5 Минимальный элемент: A[1]=1 Максимальный элемент: A[5]=5

Const n=10; var i,amin,amax,imin,imax:integer; a:array[1..n] of integer; begin for i:=1 to n do a[i]:=random(30); writeln('Полученный массив:'); for i:=1 to n do write(a[i]:4); writeln; imax:=1; imin:=1; amax:=a[1]; amin:=a[1]; for i:=1 to n do if a[i]>amax then begin amax:=a[i]; imax:=i end else  begin amin:=a[i]; imin:=i; end; writeln('A[',imin,']=',a[imin]); writeln('A[',imax,']=',a[imax]); end.