nhập một mảng số nguyên gồm n phần tử tìm day con của m,n<=m sao cho dãy con m có tổng lớn nhất

Program BTT;
Uses crt;
Type mang=array[1..1000] of longint;
Var A: mang;
    n,i,j,dau,dai,max: longint;


Function Tong(A: mang; m,l: longint): longint;
Var tg,i: longint;
Begin
        tg:=0;
        For i:=m to m+1 do tg:=tg+A[i];
        Tong:=tg;
End;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
        End;

        max:=A[1];
        For i:=1 to n do
                For j:=0 to n-i+1 do
                        If Tong(A,i,j)>max then
                        Begin
                                dau:=i;
                                max:=Tong(A,i,j);
                                dai:=j+1;
                        End;
        For i:=dau to dau+dai do Write(A[i],' ');
        Readln
End.