Массив из введенных чисел

program massiv;
var a, total, add, buff, sum: integer;
begin
  total := 0;
  write('Максимальное количество: ');
  readln(add);
  buff := 0;
  while total < add do 
  begin
    readln(a);
    if a < 0 then begin
      if buff > 0 then begin
        total := 0;
        sum := 0;
      end;
      sum := sum + a;
      inc(total);
    end
    else begin
      if buff < 0 then total := 0;
      inc(total);
    end;
    buff := a;
  end;
  writeln('Результат = ', sum);
end.

Максимальное количество: 3
1
-2
-3
4
-5
-6
7
8
9
Результат = -11

var mas:array of integer;
    max,k,a,b,n,sum: integer;
begin
repeat
write('Ведите количество чисел с одинаковым знаком max>1 max=');
readln(max);
until max>1;
writeln('Вводите целые числа окончание ввода ',max,' чисел одного знака');
readln(a);
n:=1;
setlength(mas,n);
mas[n-1]:=a;
k:=1;
sum:=a;
repeat
readln(b);
inc(n);
setlength(mas,n);
mas[n-1]:=b;
if a*b>0 then 
 begin 
  inc(k);
  sum:=sum+b;
 end 
else 
 begin 
  k:=1;
  sum:=b;
 end;
a:=b;
until k=max;
writeln('Сумма последних элементов=',sum);
writeln('Введенный массив');
for var i:=0 to n-1 do
write(mas[i],' ');
end.