помогите по паскалю.думаю для вас это не сложно

[Marishka]

Дан одномерный массив. Нужно вставить в массив элемент после первого отрицательного элемента.

[Костя КС]

если всё нужно вводить с клавиатуры, то наверно так

program qqq;
const
n = 10;            //кол-во элементов массива
var
m1, m2 : array[1..100] of integer;
i,a,x : integer;
b : boolean;

begin
  writeln(' ');
   for i:=1 to n do
     begin
      write('m[',i,']= ');
      read(m1[i]);
    end;
read(x);          // x - элемент, который нужно вставить

i:=0;
while b= false do
 begin
   i:= i+1;
   if m1[i] < 0 then
    begin
     b := true;
     a:= i;      // а - номер первого отрицательного числа
    end;
 end;
 
for i:=1 to a-1 do m2[i]:= m1[i];
for i:=a to n do m2[i+1]:= m1[i];
m2[a] :=x;

writeln(' ');
for i:=1 to n+1 do
begin
  write(m2[i]);
  write(' ');
end;
end.

[Stilet]

Нужно вставить в массив элемент после первого отрицательного элемента.

Какой элемент?