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

program prim;
var a: array [1..10] of integer;
i, z, max, min: integer;
begin
for i:=1 to 10 do
a[i]:=Random(101);
writeln (' исходный массив:');
for i:=1 to 10 do
write (a[i], ' ');
writeln;
max:= a[1];
for i:=2 to 10 do
if a[i]>max then
begin
max:= a[i];
end;
writeln ('максимальный элемент=', max);
min:= a[1];
for i:=2 to 10 do
if a[i] begin
min:= a[i];
end;
writeln ('минимальный элемент=', min);
writeln;
z:=a[min];
a[min]:=a[max];
a[max]:=z;
writeln (' полученный массив');
for i:=1 to 10 do
write (a[i], ' ');
writeln;
end.