100 баллов!! Помогите с задачкой
Ввести массив А(n). Найти его min и max. Все элементы между минимумом и максимумом возвести в квадрат. Массив отпечатать

const n=10;var a:array[1..n] of integer;max,min,imax,imin,i:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(51); write(a[i],' '); end;writeln;max:=a[1]; imax:=1;min:=a[1]; imin:=1;for i:=2 to n do begin if a[i]>max then begin max:=a[i]; imax:=i; end; if a[i]<min then begin min:=a[i]; imin:=i; end; end;writeln('max = ',max,'  min = ',min);if imax<imin then for i:=imax+1 to imin-1 do a[i]:=a[i]*a[i] else for i:=imin+1 to imax-1 do a[i]:=a[i]*a[i];for i:=1 to n do write(a[i],' ');writeln;end.Пример:26 40 11 16 40 30 16 40 3 25 max = 40  min = 326 40 121 256 1600 900 256 1600 3 25 

Сколько элементов массива?Допустим, 10.VarA: array [1..10] of integer;i, min, max, imin, imax: integer;Beginfor i:=1 to 10 doread(A[i]);min:=A[1]; max:=A[1];for i:=1 to 10 dobeginif A[i] > max then beginmax:=A[i];imax:=i;end;if A[i] < min thenbeginmin:=A[i];imin:=i;end;end;if imin<imax thenfor i:=(imin+1) to (imax-1) doA[i]:=sqr(A[i])elsefor i:=(imax+1) to (imin-1) doA[i]:=sqr(A[i]);writeln('Максимальное значение: ', max, ', минимальное: ', min);for i:=1 to 10 dowrite(A[i], ', ');end.Немного пояснений:по условию, только элементы между минимумом и максимумом возводятся в квадрат, отсюда эти imax-1 и imin+1.Пример действия:1249997656240836463Максимальное значение: 999, минимальное: 01, 2, 4, 999, 585225, 389376, 0, 83, 64, 63,