tìm dãy con có tổng lớn nhất, nhỏ nhất, có nhiều số nguyên dương nhất pascal

const
N = 1000;

var
n, i, maxSum, minSum, currentSum, maxCount, currentCount: integer;
a: array[1…N] of integer;

begin
readln(n);

for i := 1 to n do
readln(a[i]);

maxSum := a[1];
minSum := a[1];
currentSum := a[1];
maxCount := 1;
currentCount := 1;

for i := 2 to n do
begin
if currentSum + a[i] > a[i] then
begin
currentSum := currentSum + a[i];
currentCount := currentCount + 1;
end
else
begin
currentSum := a[i];
currentCount := 1;
end;

if currentSum > maxSum then begin maxSum := currentSum; maxCount := currentCount; end else if currentSum = maxSum then begin if currentCount > maxCount then maxCount := currentCount; end; if a[i] < minSum then minSum := a[i];

end;

writeln('Tổng lớn nhất:', maxSum);
writeln('Tổng nhỏ nhất:', minSum);
writeln('Số nguyên dương nhiều nhất:', maxCount);
end.