В массиве после каждого отрицательного элемента вставить элемент, равный его модулю

uses crt;
const nmax=100;
var a,b:array[1..nmax] of integer;
    n,i,j,k:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax div 2,' n=');
readln(n);
until n in [1..nmax div 2];
writeln('Исходный массив A:');
for i:=1 to n do
 begin
  a[i]:=-50+random(101);
  write(a[i]:4);
 end;
writeln;
writeln;
{1 способ}
k:=0;
for i:=1 to n do
 begin
  inc(k);
  b[k]:=a[i];
  if a[i]<0 then
   begin
    inc(k);
    b[k]:=abs(a[i]);
   end;
 end;
writeln('Массив B');
for i:=1 to k do
write(b[i]:4);
writeln;
{2 способ}
i:=1;
k:=0;
while i<=n do
if a[i]<0 then
 begin
  n:=n+1;
  k:=1;
  for j:=n downto i+2 do
  a[j]:=a[j-1];
  a[i+1]:=abs(a[i]);
  i:=i+2;
 end
else i:=i+1;
writeln('Массив A');
for i:=1 to n do
 write(a[i]:4);
readln
end.

uses crt;    //модуль для очистки экрана процедурой clrscr
const nmax=100;//макс. размер массива
var a,b:array[1..nmax] of integer;//массивы
    n,k,i,j:byte; //размерs массива и счетчики циклов
    //x убрать, рудимент старой программы
begin
clrscr; //очистка экрана, можно убрать ее и модуль
randomize; //генерация псевдослучайных чиел
repeat//вводразмера массива с прверкой
write('Размер массива до ',nmax div 2,' n=');//не больше половины макс.
readln(n);
until n in [1..nmax div 2];
writeln('Исходный массив A:');
for i:=1 to n do
 begin
  a[i]:=-50+random(101);//от -50 до +50
  write(a[i]:4);
 end;
writeln;
{1 способ}
k:=0;//размер массива В
for i:=1 to n do
 begin
  inc(k);//увеличим на 1
  b[k]:=a[i];//запишем число из А
  if a[i]<0 then //если отрицательное
   begin
    inc(k); //+1
    b[k]:=abs(a[i]);//пишем модуль
   end;
 end;
writeln('Массив B');
for i:=1 to k do
write(b[i]:4);
writeln;
{2 способ}
//k:=0; убрать ошибку
i:=1; //начало массива
while i<=n do//пока не конец
if a[i]<0 then //если отрицательное
 begin
  n:=n+1;//+1
//k:=1;  убрать ошибку
  for j:=n downto i+2 do  //сдвинем массив вправо на 1, освободим место i+1
  a[j]:=a[j-1];
  a[i+1]:=abs(a[i]);//вставим туда модуль
  i:=i+2;//перешагнем
 end
else i:=i+1;//иначе вперед
writeln('Массив A');
for i:=1 to n do
write(a[i]:4);
readln
end.

 for j:=n downto i+2 do  //сдвинем массив вправо на 1, освободим место i+1
  a[j]:=a[j-1];
  a[i+1]:=abs(a[i]);//вставим туда модуль
  i:=i+2;//перешагнем

for j:=n downto i+2 do  //сдвинем массив вправо на 1, освободим место i+1