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

program pr1;
var ff:file of integer; kol:byte;x:longint; imya:string[90];
begin
  writeln('Введите имя файла');
  readln(imya);
  assign(ff,imya);
  reset(ff);
  kol:=0;
  while not eof(ff) do
  begin
    read(ff,x);
    if not odd(x) then inc(kol);
  end;
  close(ff);
  writeln('Количество четных комепонентов- ',kol);
end.