Дан одномерный массив А(N). Найти в нем самую длинную последовательность рядом стоящих отрицательных элементов. Выдать ее на печать — Pascal(Паскаль)

var
a:array[1..100]of integer;
i,n,k,max,nom:integer;
begin
writeln('vvedite n');
readln(n);
writeln('massiv');
randomize;
for i:=1 to n do
begin
a[i]:=random(20)-15;
write(a[i],' ');
end;
writeln;
k:=1;
for i:=1 to n do
 if a[i]<0 then
        if a[i+1]<0 then inc(k)
         else
         begin
            if k>max then
              begin
              max:=k;
             nom:=i;
              end;
         k:=1;
         end;
for i:=nom-max +1 to nom do write(a[i],' ');
readln;
end.