Составьте программу, которая...

Составьте программу, которая заполняет массив а(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:=random(101);
write(a,' ');
if (a > max) then max:=a; if (a < min) then min:=a;
end;
writeln('');
for i:=1 to 10 do
begin
if a = max then a:=min else if a = min then a:=max;
write(a,' ');end;

end.