Дан массив 1,4,5,7,8 Найти сумму всех частей В Pascal ABC

program zz1;
const n = 5; // задаем количество элементов в массиве
m:array [1..n] of integer=(1, 4, 5, 7, 8);
var i, k:integer; // задаем переменные целого типа
begin
k:=0; // задаем начальное значение для суммы
for i:=1 to n do // организуем цикл, в котором переберем все элементы массива
k:=k + m[i]; // получаем сумму, прибавляя к ней очередной элемент из массива
write( сумма данных частей массива = , k); // выводим ответ
end.