Дан массив чисел. Определить если в нём отрицательные числа, если есть то определить номер первого из них, и напечатать все следующие за ним элементы — Pascal(Паскаль)

const n=10;
var a:array[1..n] of integer; i,j:integer;
begin
randomize;
j:=0;
for i:=1 to n do
begin
a[i]:=random(20)-10;
write(a[i],' ');
if (a[i]<0) and (j=0) then j:=i;
end;
writeln;
for i:=j+1 to n do
write(a[i],' ');
readln;
end.