Задача Pascal, массивы

1) В массиве А[100] уменьшить все числа кратные 7 на величину последнего элемента массива. Написать фрагмент программы.

var a: array[1 ... 999] of integer;

begin

for var i : = 1 to 100 do begin

a[i] : = random (1, 100);

write (a[i] + ' ');

end;

writeln;

for var i : = 1 to 100 do begin

if a[i] mod 7 = 0 then

a[i] - = a[100];

write (a[i] + ' ');

end;

end.