Написать программки в паскале. 1. Дан массив целых чисел. Напечатать все

1. Дан массив целых чисел. Напечатать все элементы, заканчивающиеся нулем.
mod  - остаток от дробленья, например 123 mod 10 =3
var a: array [1..100] of integer;
   i,N:integer;
begin
 writeln('Введите кол-во частей массива'); readln(n);
 writeln('введите эл-ты массива');
 for i:=1 to N do read(a[i]);
 writeln(' эл-ты массива заканчивающиеся нулем.');
 for i:=1 to N do
  if a[i] mod 10 =0 then writeln(a[i]:5); 
end.