Вставить новый элемент после первого отрицательного элемента массива

program s;
uses crt;
var
  x:array[1..100] of integer;
  n,A,i,p:integer;
begin
clrscr;
randomize;
  write ('Введите размерность массива: '); readln(n);
  writeln('Исходный массив: ');
  for i:=1 to n do
  begin
  x[i]:=random(n*2+1)-n;
  write (x[i]:4,'');
  end;
  writeln;
  p:= n+1;
  for i:=n downto 1 do
  if (x[i]<0) then p := i;
  if (p > n) then begin
  writeln('Отрицательных элементов не найдено');
  end;
  writeln;
  write ('Введите число, которое нужно вставить: '); readln(A);
  for i := n downto p+1 do
  begin
    x[i+1] := x[i];
  x[p+1] := A;
  n := n+1;
  end;
  writeln('Новый массив: ');
  for i := 1 to n do
  begin
    write(x[i]:4,'');
  end;
  readln;
end.

uses crt;
var a:array [1..100] of integer;
    NE,i,io,ko,n: integer;
begin
write ('Введите размер массива ');
readln (n);
write ('Введите новый элемент ');
readln (NE);
ko:=0;
writeln ('Исходный массив');
for i:=1 to n do
    begin
    a[i]:=random(21)-10;
    write (a[i]:3);
    if (a[i]<0) and (ko<1) then
       begin
       io:=i;
       ko:=ko+1;
       end;
    end;
writeln;
if ko<1 then writeln('Отрицательных элементов не найдено') else
begin
 
writeln ('Итоговый массив');
for i:=n+1 downto io do
    a[i+1]:=a[i];
a[io]:=NE;
for i:=1 to n+1 do
    write (a[i]:3);
end;
readln;
end.

a[i]:=random(21)-10;

uses crt;
var a:array [1..100] of integer;
    NE,i,io,ko,n: integer;
begin
write ('Введите размер массива ');
readln (n);
ko:=0;
writeln ('Исходный массив');
for i:=1 to n do
    begin
    a[i]:=random(21)-10;
    write (a[i]:3);
    if (a[i]<0) and (ko<1) then
       begin
       io:=i;
       ko:=ko+1;
       end;
    end;
writeln;
if ko<1 then writeln('Отрицательных элементов не найдено')
else
begin
io:=io+1;
write ('Введите новый элемент ');
readln (NE);
writeln ('Итоговый массив');
for i:=n+1 downto io do
    a[i+1]:=a[i];
a[io]:=NE;
for i:=1 to n+1 do
    write (a[i]:3);
end;
readln;
end.

a[i]:= random(21);
a[i]:= а[i]-10;

a[i]:=random(n*2+1)-n;