Viết chương trình tìm dãy con có tổng lớn nhất

Viết chương trình tìm dãy con có tổng lớn nhất.
Dữ liệu vào: được cho ở file văn bản maxtong.INP, có cấu trúc như sau:
– Dòng 1: ghi số nguyên N
– Dòng 2: ghi N số nguyên, mỗi số cách nhau ít nhất 1 dấu cách.
Dữ liệu ra: ghi vào file văn bản maxtong.OUT, có cấu trúc như sau:
– Dòng 1: vị trí bắt đầu của dãy con tổng lớn nhất.
– Dòng 2: số phần tử của dãy con tổng lớn nhất.
– Dòng 3: Tổng lớn nhất.
Ví dụ:
Maxtong.INP
8
–2 2 –1 3 5 –4 2 1
Maxtong.OUT
2
4
9


program tonglonnhat;
uses crt;
var a,b:array[1..100]of integer;
fi,fo:text;
n,x,y,d:integer;
procedure nhap;
var i:integer;
begin
assign(fi,'maxtong.inp');
reset(fi);
readln(fi,n);
for i:=1 to n do
read(fi,a[i]);

close(fi);
end;
procedure phuongan;
var i,ln,h:integer;
begin
b[1]:=a[1];
for i:=2 to n do
if a[i]<a[i]+b[i-1] then b[i]:=a[i]+b[i-1] else b[i]:=a[i];
ln:=b[1];
for i:=2 to n do
if ln<b[i] then
begin
ln:=b[i];
x:=i;
end;h:=ln;d:=0;i:=;
while (h<>0) do
begin