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