Hãy viết công thức pascal theo kiểu file in ra kết quả tổng lớn nhất và mảng con tăng dần

var f,g: text;
n,i,j,max_sum,sum,start_index,end_index,max_start,max_end: integer;
a: array[1..100] of integer;

begin
assign(f,'mangcon.inp');
reset(f);
assign(g,'mangcon.out');
rewrite(g);

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

max_sum := 0;
start_index := 1;
end_index := 1;
max_start := 1;
max_end := 1;

for i:=1 to n do
begin
sum := a[i];
for j:=i+1 to n do
begin
if a[j] > a[j-1] then
sum := sum + a[j]
else
break;
end;

if sum > max_sum then
begin
max_sum := sum;
max_start := start_index;
max_end := end_index;
end;

start_index := i;
end_index := j;
end;

writeln(g,'Tong lon nhat cua mang con tang dan la: ', max_sum);
writeln(g,'Mang con tang dan co tong lon nhat la: ');
for i:=max_start to max_end do
write(g,a[i],' ');

close(f);
close(g);
end.