составьте программу , которая заполняет массив случайными целыми числами в диапозоне от 1 до 100 , затем меняет местами наименьший четный элемент с наибольшим нечетным элементом

Program Pr1;uses crt;var mas:array[1..10] of integer; i,max,min,a,b:integer;Beginclrscr;max:=0;min:=150;randomize;for i:=1 to 10 do mas[i]:=1+random(100);for i:=1 to 10 do write(mas[i]);for i:=1 to 10 do begin if (mas[i] mod 2=0) and (mas[i]>max) then begin max:=mas[i]; a:=i; end; if (mas[i] mod 2=0) and (mas[i]<min) then begin min:=mas[i]; b:=i; end; end;i:=mas[a];mas[a]:=mas[b];mas[b]:=i;writeln();for i:=1 to 10 do write(mas[i]);end.