Имеется массив целых чисел размером N (задается константой). Заполнить его случайными целыми числами в заданном диапазоне (вводится с клавиатуры). Вывести его на экран. Поменять местами максимальный и минимальный элементы. Получившийся массив вывести на экран. Если максимальных или минимальных элементов несколько, то выбрать те, которые стоят ближе к началу массива.pascal
ABC СРОЧНО

Program n1;const n=10;var a: array[1..n] of integer;n3,n2,min,max,i,imin,imax,t: integer;beginrandomize;writeln('введите диапазон (a;b) :');write('a=');readln(n3);write('b=');readln(n2);write('сгенерированный массив: ');for i:=1 to n dobegina[i]:=random(n2-n3+1)+n3;write(a[i],' ');end;writeln;min:=a[1];for i:=2 to n do if a[i]<min then min:=a[i];for i:=1 to n do if a[i]=min then beginimin:=i;break;end;max:=a[1];for i:=2 to n do if a[i]>max then max:=a[i];for i:=1 to n do if a[i]=max then beginimax:=i;break;end;t:=a[imax];a[imax]:=a[imin];a[imin]:=t;write('полученный массив: ');for i:=1 to n do write(a[i],' ');end.