Cho dãy số gồm n số nguyên. Tìm dãy con có tổng lớn nhất

Program Day_con1b; Type KM= array[1..100] of integer; Var M:KM; i,j,n,ldau, dai,Max: integer; Function TONG(A:KM;m,l:byte):Integer; Var Tam,i:integer; Begin Tam:=0; For i:=m to m+l do Tam:=Tam + A[i]; TONG:=Tam; End; Begin Write('Nhap so nc: '); Readln(n); For i:=1 to n do Begin Write('[',i,']='); Readln(M[i]); End; Max:=M[1];dai:=1;ldau:=1; For i:= 1 to n do For j:=0 to n-i+1 do if TONG(M,i,j)> Max then Begin ldau:=i; Max:=Tong(M,i,j) ; dai:=j+1 End; Write('Xau con co tong:',max,' bat dau tu: ',ldau, ' dai: ',dai); Readln End.