Напишите пожалуйста в Паскаль.Массив из 15 элементов заполнить случайными четными числами в интервале от -25 до 70. Вывести полученный массив на экран в строчку.Найти сумму наибольшего и наименьшего элементов массива. (Использовать пузырьковую сортировку).

Var a,b,c:integer; m2:array [1..15] of integer;
begin
for a:=1 to 15 do
begin
m2[a]:= random (95)-25;
write (m2[a], );
end;
for a:=1 to 15 do
for c:=1 to 14 do
if m2[c]begin
b:=m2[c];
m2[c]:=m2[c+1];
m2[c+1]:=b;
end;
writeln (m2[1], ,m2[15]);end.