Сортировка массива методом вставки - Pascal ABC

[Korban]

Создайте массив в котором n элементов. Сортировать вторую четверть по убыванию, последнюю - по возрастанию, элементы, большие заданного числа p удвоить.

[newerow1989]

const n=20;
var i,j,k,z,a:integer;
    p:array[0..n-1] of integer;
begin
   Write('a = '); Readln(a);
   Randomize;
   For i:=0 to n-1 do
   begin
      p[i]:=Random(21);
      Write(p[i]:2,' ');
      If i mod (n div 4)=n div 4-1 then
         Write('. ');
   end;
   Writeln;
   Writeln;
   For i:=n div 4+1 to n div 2-1 do
   begin
      z:=p[i];
      j:=n div 4;
      While p[j]>z do
         j:=j+1;
      For k:=i downto j+1 do
         p[k]:=p[k-1];
      p[j]:=z;
   end;
   For i:=3*n div 4+1 to n do
   begin
      z:=p[i];
      j:=3*n div 4;
      While p[j]<z do
         j:=j+1;
      For k:=i downto j+1 do
         p[k]:=p[k-1];
      p[j]:=z;
   end;
   For i:=0 to n-1 do
      If p[i]>a then
         p[i]:=2*p[i];
   For i:=0 to n-1 do
   begin
      Write(p[i]:2,' ');
      If i mod (n div 4)=n div 4-1 then
         Write('. ');
   end;
   Writeln;
   Readln;
end.

[Korban]

Да, огромное спасибо вам.

[newerow1989]