сотсавьте программу которая заполнит массив a[1..10] случайными целыми числами в диапазоне от 1 до 100, затем меняет местами максимальный и минимальный элементы. Выведите на экран исходный и полученный массивы....это в паскале

Program Program1;Vari,min,max,nmin,nmax:integer;a:array [1..10] of integer;beginrandomize;writeln('Исходный массив:');for i:=1 to 10 dobegina[i]:=random(100)+1;writeln('a[',i,']=',a[i]);end;nmin:=1;min:=a[nmin];nmax:=1;max:=a[nmax];for i:=1 to 10 dobeginif a[i]>max thenbeginnmax:=i;max:=a[i];end;if a[i]<min thenbeginnmin:=i;min:=a[i];end;end;a[nmin]:=max;a[nmax]:=min;writeln('Минимальный элемент a[',nmin,']=',min,' Максимальный элемент a[',nmax,']=',max);writeln('Полученный массив:');for i:=1 to 10 dowriteln('a[',i,']=',a[i]);end.