Помогите с массивами! Найти и вывести на экран сумму нечётных элементов массива и количество отрицательных.

„Вы сначала должны… “
Ну, раз вы знаете, что мы должны, то вот:

var m: array [1..10] of Integer;
i,k,sum:integer;
begin
writeln('Ввести 10 чисел:');
for i:=1 to 10 do
begin
write(i,' число: ');
readln(m[i]);
end;
k:=0;
sum:=0;
for i:=1 to 10 do
begin
if m[i] mod 2 <>0 then sum:=sum+ m[i];
if m[i] <0 then k:=k+1;
end;
writeln('sum=',sum,' k=',k);
end.

-54-85-30-34-80 70 32 83 99-85-18 24-21-13-34 86 94-88 94 73-55
-543 11
-64-40 49-44 15 18 78-19-83-63 61-35 9 44-6-86-36-43 52 3 56
-455 10
81-77 92-2-99-84 90-28-35 79 56-57 25-8-79 91 71 88-37-32 91
-538 11
-35 18 2 5 17-26-73 34-56-11 27 17 28-57-20 78-36 87 64-2 58
-281 8
-54-41-57 13-16-44 52-48-97-17-86 77-77-74 1-83 26-35-56-79 50
-810 14
-72-13-62 59-17 54-14-15 14 90-65-30-38-84 84 19 15-64 15 84 71
-402 10
5-79 60-57-17-79 78-74-6 11-42 85 55-24-10 22-62-97-79 71-88
-714 13
89-29-22 84-38-15 2 17-73 43 40-98-78-66 29 45 14 28 61-89-67
-575 10
-85-53-10-67 3-70-58 30 7 48-64-62 95 84 16-56-9 30-68 81-74
-591 11
61 97-87-20-3 42 29 67 23 11-31 19 78 13 70 60-27-70-46 13-79
-363 8
25-17-99 79-43-20 16-80-15-50-46-94-19-16-69-37-99-4-54-26-12
-800 18
-41-21-75-68-3-8-61-78 81 100 82-29 67-21 63-33-77 37 79-69-8
-551 13
-71 21-68 21-86-11 3-28-67-94-82 71-36-50-39 51 100 62-20-95 10
-676 12
32 54 74-25-43 54-72 52 82-19-89 14-38 52 59-18-51-20 92-56-65
-496 11
54-45-58-91 82 93-68-35-73 47 91-93-100-73-28-63 53-64-18-95 82
-904 14
-28-23 30-99-63 43 18 63 83 84-83-38-36 91-32-81-48-97-73-66 72
-739 12
90 74-13-100 63 99 87-8-24 100-54 94-63 89-43 19 9-35 46-16 80
-356 9
-2-10-61 30 83-66-15-36 41-27-46-10 97 90 48-76 75 70-37-98-51
-533 12