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

Приведённый тобой код решает совсем другую задачу. И если делать максимально просто, то массив вообще не нужен.

var i, k, cnt: integer;
begin
cnt := 0;
for i := 1 to 13 do begin
read(k);
inc(cnt, ord(k < 0))
end;
if cnt > 0 then writeln(cnt) else writeln('Отрицательных элементов нет')
end.

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