Tính Tổng Từ Xâu

Đề bài: Trên màn hình hiện ra các số của 1 dãy số N số nguyên hãy tính tổng của k số nguyên liên tiếp xuất hiện trên màn hình. Bắt đầu từ số nguyên thứ b. Dữ liệu vào chứa trong tệp văn bản sum.inp. Dòng đầu ghi k số nguyên

var
 f:text;
 i,b,k,z,tong:integer;
 m:string;
 A:array[1..1000] of integer;
begin
 assign(f,'sum.inp');reset(f);
 readln(f,k);  writeln(k);
 readln(f,M);  writeln(m);
 writeln('Hay nhap b: ');readln(b);
 for i:=1 to length(M) do val(m[i],a[i],z);
 for i:=b to b+k do tong:=tong + a[i];
 write('tong la: ',tong);
 readln
end.