Найти сумму элементов массива l(8), больших 5, 18 (паскаль)

Program max; const   n = 4; var   nums: array [1..n] of integer;   strs: array [1..n] of string[20] = ('первое', 'второе', 'третье', 'четвёртое');   i, max: integer; begin   for i : = 1 to n do       begin           write(strs[i], ' число: ')           readln(nums[i]);       end;   max : = 0;   for i : = 1 to n do       if nums[i] > max then           max : = nums[i];   writeln('максимальное: ', max); end.

1) birthday1.asf - 24.12.15 birthday2.asf - 15.07.16 clip_1.mpeg - 24.07.14 clip_2.mov - 24.10.16 clip_3.mov - 01.07.14 family.avi - 12.08.13 friends1.mov - 25.07.14 friends2.mov - 04.01.14 video1.avi - 19.07.14 video2.avi - 21.11.13 video3.wmv - 24.06.14 video4.wmv - 10.07.15 2) birthday2.asf - 15.07.16 clip_1.mpeg - 24.07.14 clip_3.mov - 01.07.14 family.avi - 12.08.13 friends2.mov - 04.01.14 video2.avi - 21.11.13 video4.wmv - 10.07.15 3) family.avi - 12.08.13 video2.avi - 21.11.13 friends2.mov - 04.01.14 clip_3.mov - 01.07.14 clip_1.mpeg - 24.07.14 video4.wmv - 10.07.15 birthday2.asf - 15.07.16 итог : video2.avi - 21.11.13 clip_3.mov - 01.07.14 clip_1.mpeg - 24.07.14 video4.wmv - 10.07.15 birthday2.asf - 15.07.16 ответ: 5