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

constN = 200;      //массив из 200 чисел, поскольку размерность не заданаvarmas: array [1..N] of integer;s, i, ind: integer;begins := 0;ind := 0for i := 1 to N do beginif mas[i]<0 then ind := 1;if ind = 1 then s := s + mas[i];end;end;