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

Var i,min,max:integer;
a:array[1..10] of integer;
begin
min:=100;
max:=0;
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(101);
write(a[i], );
if (a[i] > max) then max:=a[i]; if (a[i] end;
writeln();
for i:=1 to 10 do
begin
if a[i] = max then a[i]:=min else if a[i] = min then a[i]:=max;
write(a[i], );end;

end.