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

Vara,b,c,i:longint;
m:array[1..1000] of longint;
Begin
c:=0;
readln(a);
readln(b);
for i:=1 to b do
begin
read(m[i+c]);
if (m[i+c]<0) and (c=0) then
begin
m[i+1]:=a;
c:=1;
end;
end;
for i:=1 to b+1 do
write(m[i],' ');
End.