Помогите написать програмку на турбо делфи .

для начала надо бы турбо делфи написать.. . Есть турбо паскаль, есть делфи.. . var a:array[1..кол-во_элементов_массива] of integer; sum: integer; i: integer; //заполниш массив сам.. . sum:=0; for i:=1 to кол-во_элементов_массива do if a < 0 then sum := sum+a; print(sum);