Дана последовательность натуральных чисел. Создать массив из четных чисел этой последовательности. Если таких чисел нет, то вывести сообщение об этом факте — Pascal(Паскаль)

Program Zadacha;
uses crt;
const
 n = 5;
var
 i,j:integer;
 a,b:array[1..n] of integer;
 
begin
 clrscr;
 writeln('Vvedite ',n,' chisel:');
 for i:=1 to n do readln(a[i]);
 for i:=1 to n do if a[i] mod 2 =0 then begin j:=j+1; b[j]:=a[i]; end;
 if j>0 then for i:=1 to j do write(b[i]:3) else writeln('Chetnih chisel net');
 readkey;
end.