Вставка элементов в одномерный массив(PascalABCNET)

[FlayGlam]

Вставить два элемента: первый - после максимального элемента, второй - перед максимальным элементом.

[newerow1989]

var i,a,b,max:integer;
    p:array[1..10] of integer;
begin
   Write('a = '); Readln(a);
   Write('b = '); Readln(b);
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=Random(21);
      Write(p[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   max:=p[1];
   For i:=2 to 10 do
      If max<p[i] then
         max:=p[i];
   For i:=1 to 10 do
   begin
      If p[i]=max then
         Write(a:2,'  ');
      Write(p[i]:2,'  ');
      If p[i]=max then
         Write(b:2,'  ');
   end;
   Writeln;
   Readln;
end.

[FlayGlam]

Пасибо большое

[newerow1989]