1.ввести количество чисел
2.заполнить массив
3.найти четные числа и создать новый массив
4.проверить массив на заполняемость
5.если k=0,то вывод "четных чисел нет".

Больше половины я написала...помогите завершить.

Program mas;
Var a:array [1..15] of integer;
k:integer;
i,j:real;
Begin
for i:=1 to 15 do
Begin
writeln ('введите значение элемента');
readln (a[i]);
end;
for i:=1 to 15 do
if b[j]:=a[i] then j:=j+1;
end;
writeln ('j=');
if b[j] <>0, k:=k+1