Mình đang cần gấp Viết nhanh giúp mình với

//code C++:

#include <bits/stdc++.h>
const int N=1E5+2;
using namespace std;
int t,n,a[N],k;
int MIN=1E6;
int main(){
    cin >>t;
    a[0]=0;
    for (int i=1;i<=t;i++){
        cin >>n;
        for (int j=1;j<=n;j++){
            cin >>k;
            a[j]=a[j-1]+k;
        }
        for (int j=0;j<=n;j++){
            if (a[j]<MIN) MIN=a[j];
        }
        cout <<MIN<<endl;
        MIN=1E6;
    }
}

//nếu đúng vote mình 5* nhé^^

uses crt;
var t,min,i,j,s:longint; n,a:array[1..1000000]of longint ;
begin
 clrscr;
  readln(t);
  min:=0;
  for i:=1 to t do
        begin
          readln(n[i]);
          for j:=1 to n[i] do
                begin
                 readln(a[j]);
                 if(a[j]<0)then s:=s+a[i] else
                 if(s<min)then begin min:=s; s:=0; end;
                end;
        end;
  write(min);
 readln;
end.