В заданном случайным образом массиве … максимальное значение заменить…

Program A1; var a: array[1… 30] of integer; amax,amin,i,imin,imax,n,s: integer; beginwriteln ('введите n элементов массива'); readln (n); for i: =1 to n do a[i]: =random (30); writeln ('введенный массив имеет вид'); for i: =1 to n do write (a[i], '); writeln; amax: =a[1]; imiax: =1; for i: =2 to n do if a[i]>amax then begin amax: =a[i]; imax: =i; end; amin: =a[1]; imin: =1; for i: =2 to n do if a[i]