Помогите написать код программы на языке Паскаль

Задан массив, состоящий из 19 элементов целого типа. Найти сумму элементов, расположенных до первого отрицательного элемента. Если отрицательных элементов нет, то выдать соответствующее сообщение

program LessThanNine;

Var 

 A, B : Array of Integer;

 I, Kolvo : Integer; 

begin

  randomize;

  SetLength(A,11);

  SetLength(B,11);

  Kolvo := 0;

  For I:=0 to 10 do

  begin

   A[I]:=random(16);

   Write(A[I], ' ');

  end;

  Writeln; 

  For I:=0 to 10 do

  begin

   B[I]:=A[I] * 2;

   Write(B[I], ' ');

  end;

  Writeln; 

  For I:=0 to 10 do

   if B[I]<9 then

     Kolvo := Kolvo + 1;

  Write('Количество элементов меньше 9-ти: ', Kolvo);

end.