Задача по одномерным массивам Опции

[Anuta1]

Помогите, люди добрые!!!
Дана последовательность из 15 целых чисел. Определить количество отрицательных чисел в ней и максимальное число подряд следующих отрицательных чисел. (одномерные массивы)

[Krjuger]

const  a: array[1..15] of integer=(-1,-1,1,-1,-1,-1,1,1,1,1,-1,-1,-1,-1,-1);
var
 max,max1: integer;
 flag: boolean;
 num ,i: integer;
begin
max:=0;
max1:=0;
flag:=true;
{for i:=1 to 15 do
 readln(a[i]);
 }

for i:=1 to 15 do begin
if a[i]<0 then begin
 inc(num);
 if flag then
  inc(max1);
 if max1>max then
   max:=max1;
  flag:=true;
 end
else
 begin
 flag:=false;
 max1:=1;
 end;
end;
writeln('Kol-vo:',num);
writeln('Max dlinna:',max);
readln;
end.

Как то так,попробовал,вроде работает,может кто ошибку или уязвимое место найдет.

[Anuta1]

Спасибо огромное))) теперь бы еще с тремя разобраться и с чистой совестью на зачет

[-Ксюша-]

Помогите пожалуйста!!!!!!!!!!!!!Завтра зачет.
Дан массив из N чисел (N>8).Вычислить их среднее геометрическое значение.