Составьте программу, которая заполняет массив а [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.