Сформировать массив из 25 элементов, заполненный случайными числами. В первой половине массива увеличить четные элементы в два раза, а во второй половине разместить элементы в порядке убывания. Вывести на экран начальный и итоговый массив. (Pascal ABC)

Const n=25;

var a:array[1 ... n] of integer;

i, j, p:integer;

begin

for i:=1 to n do a[i]:=random (50) - 20;

for i:=1 to n do write (a[i]:4) ;

writeln;

for i:=1 to 12 do

if (a[i] mod 2 = 0) then a[i]:=2*a[i];

for i:=14 to n-1 do begin

for j:=14 to n-1 do

if a[j]<=a[j+1] then begin

p:=a[j]; a[j]:=a[j+1]; a[j+1]:=p;

end;

end;

for i:=1 to n do write (a[i]:4) ;

end.