viết chương trình nhập các phần tử cho mảng, cho tổng các phần tử lớn hơn 1000 thì dừng Mọi người làm giúp mình câu này nha cám ơn nhìu Mình đang cần gấp

uses crt;

var a : array[1 .. 100] of integer; i, s : integer;

begin

clrscr;

i := 1; s := 0;

while s <= 1000 do

begin

write('Nhap phan tu thu ', i ,' : '); readln(a[i]);

s := s + a[i]; i := i + 1; end;

write('Tong S = ', S);

readln

end.

program oken;

uses crt;

var a: array [1..10000] of longint;

i,n,tong:longint;

begin

clrscr;

write('nhap so phan tu cua mang: '); readln(n);

tong:=0; i:=1;

while tong<=1000 do

begin

write('a[',i,']: '); readln(a[i]);

tong:=tong+a[i];

i:=i+1;

end;

writeln('Tong lon hon 1000 cua ',i,' phan tu: ',tong);

readln;

end.