Массив: Преобразовать массив, вставив перед1|после2 каждого положительного3|отрицательного4 элемента нулевой элемент.

uses crt;
const nmax=100;
var a,a1:array[1..nmax] of integer;
    n,n1,i,j:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax div 2,' n=');
readln(n);
until n in [1..nmax div 2];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  repeat
  a[i]:=-25+random(51);
  until a[i]<>0;
  write(a[i]:4);
 end;
writeln;
{вставка перед положительными}
a1:=a;
n1:=n;
i:=n1;
while i>=1 do
if a1[i]>0 then
 begin
  n1:=n1+1;
  for j:=n1 downto i+1 do
  a1[j]:=a1[j-1];
  a1[i]:=0;
 end
else i:=i-1;
writeln('Вставка 0 перед положительными');
for i:=1 to n1 do
write(a1[i]:4);
writeln;
{вставка перед отрицательными}
a1:=a;
n1:=n;
i:=n1;
while i>=1 do
if a1[i]<0 then
 begin
  n1:=n1+1;
  for j:=n1 downto i+1 do
  a1[j]:=a1[j-1];
  a1[i]:=0;
 end
else i:=i-1;
writeln('Вставка 0 перед отрицательными');
for i:=1 to n1 do
write(a1[i]:4);
writeln;
{вставка 0 после положительных}
a1:=a;
n1:=n;
i:=1;
while i<=n1 do
if a1[i]>0 then
 begin
  n1:=n1+1;
  for j:=n1 downto i+2 do
  a1[j]:=a1[j-1];
  a1[i+1]:=0;
  i:=i+2;
 end
else i:=i+1;
writeln('Вставка 0 после положительных');
for i:=1 to n1 do
write(a1[i]:4);
writeln;
{вставка 0 после отрицательных}
a1:=a;
n1:=n;
i:=1;
while i<=n1 do
if a1[i]<0 then
 begin
  n1:=n1+1;
  for j:=n1 downto i+2 do
  a1[j]:=a1[j-1];
  a1[i+1]:=0;
  i:=i+2;
 end
else i:=i+1;
writeln('Вставка 0 после отрицательных');
for i:=1 to n1 do
write(a1[i]:4);
writeln;
readln
end.