Определить сумму элементов массива, значения которых кратны 3 (с использованием while и for) - Pascal ABC

const
m = 10;
var A:array[1..m] of integer;
i,sum: integer;
begin
writeln('Исходный массив:');
for i:=1 to m do
    begin
    A[i]:=-9 + random(18);
    write(A[i]:3);
    end;
writeln;
// через for
sum:=0;
for i:=1 to m do
    if A[i] mod 3 = 0 then
        sum:=sum + A[i];
writeln('Сумма элементов: ', sum);
//через while
sum:=0;
i:=0;
while i < m do
    begin
    inc(i);
    if A[i] mod 3 = 0 then
        sum:=sum + A[i];
    end;
writeln('Сумма элементов: ', sum);
end.