задан одномерный целочисленный массив из 10 частей заполненных произвольно. вывести массив

Const n = 10;
var i,k,c: integer;
a:array[1..n] of integer;
begin
//Наполняем массив  и выводим на экран
for i:=1 to n do begin
  a[i]:=random(150)-50;
  write(a[i]:5);
end;
writeln;
//Вывод частей кратных пяти
k:=0;
for i:=1 to n do
  if a[i] mod 5 = 0 then begin
    write(a[i]:5);
    k:=k+1;
  end;
  writeln;
writeln('Всего кратных пяти - ',k);
end.