Em cần gấp ạ mai thi rồi mà không biết ct của em sai ở đâu mn giúp em sửa lỗi với ạ

          Tìm và sửa lỗi trong chương trình pascal sau: 

          var T, So, D: longint;
          begin
                T:= 0; 
                D:= 0;
                repeat
                write('Nhap so: ');
                readln(So);
                if T + So <= 15000 then 
          begin
                 T:= T + So;
                 D:= Dem + 1; 
          end;
                 until T >= 15000; 
                 writeln('Tong cac so la: ', Tong); 
                writeln('Tong so da nhap: ', Dem);
          readln;
          end.

Mọi người làm ơn giúp em với. Em cảm ơn nhiều ạ !

Choose the underlined part that needs correcting in each sentence below. (Mọi người tìm ra lỗi sai rồi sửa lỗi giúp em luôn nhé ạ).

1. Celebrating tradition festivals should be encourage in our community.

           A                                          B                  C                             D

2. Festivals help people in a community cooperating more with others.

                      A                B                               C                                D