Дан массив воткнуть число k после первого отрицательного

Const n=10;
var a:array[1..n+1] of integer;
k,i,j:integer;
begin
Randomize;
writeln('Начальный массив');
for i:=1 to n do begin
 a[i]:=random(51)-10;
 write(a[i],' ');
 end;
writeln;
write('k = ');
readln(k);
j:=1;
while (jlt;n)and(a[j]gt;=0) do j:=j+1;
if a[j]gt;=0 then writeln('Отрицательных элементов нет')
else begin
 for i:=n downto j+1 do a[i+1]:=a[i];
 a[j+1]:=k;
 writeln('Модифицированный массив:');
 for i:=1 to n+1 do write(a[i],' ');
 writeln;
 end;
end.

Пример:
Начальный массив
19 5 17 -4 23 -9 25 33 13 16
k = 10
Модифицированный массив:
19 5 17 -4 10 23 -9 25 33 13 16