Составьте программу подсчёта числа различных четных компонентов целочисленного файла f — Pascal(Паскаль)

program student;
uses crt;
var
f:file of integer;
i,k,n:integer;
p:array[1..999] of integer;
begin
clrscr;
write('Сколько компонентов хотите? '); read(n);
randomize;
for i:=1 to n do
begin
p[i]:=random(50);
end;
assign(f,'d:\4');
rewrite(f);
for i:=1 to n do
write(f,p[i]);
close(f);
reset(f);
for i:=1 to n do
if  odd(p[i])=false then
inc(k);
close(f);
writeln;
write('Четных: ',k);
end.