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

uses crt;
var f:file of integer;
    a,k:integer;
begin
clrscr;
assign(f,'file1');
rewrite(f);
writeln('Введите в файл целые числа, окончание ввода 0:');
repeat
readln(a);
write(f,a);
until a=0;
clrscr;
writeln('Исходный файл:');
reset(f);
k:=0;
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
  if (a mod 2=0)and((a div 2) mod 2<>0) then k:=k+1;
 end;
close(f);
writeln;
write('Количество удвоенных нечетных чисел=',k);
readln
end.