Найти среди компонентов файла количество чисел, которые делятся на 2 но не делятся на 4.

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

var
  a,b: text;
  s,d: string;
  i,j,u,y: byte;
  p: boolean;
begin
  assign(a,'work1.txt');
  assign(b,'work1.txt');
  reset(a);
  reset(b);
  while not eof(a) do
  begin
    while not eoln(a) do
      read(a,s);
    inc(u);
    for i := 1 to length(s) do
    begin
      p := false;
      y := 0;
      reset(b);
    while not eof(b) do
    begin
      while not eoln(b) do
        read(b,d);
      inc(y);
      for j := 1 to length(d) do
        if (s[i] = d[j]) then
        begin
          if (y <> u) or ((y = u) and (j <> i)) then
           begin p := true; break end;
        end;
        readln(b);
        if p then break;
      end;
      if not p then writeln(s[i]);
    end;
    readln(a);
  end;
  write('Rabota okonchena! Nazmite <Enter>.');
  readln
end.

var
  a,b: text;
  s,d,e: string;
  i,j,u,y: byte;
  p: boolean;
begin
  write('Vvedite direktoriyu: ');
  readln(e);
  assign(a,e);
  assign(b,e);
  {$I-}
  reset(a);
  reset(b);
    if IOresult <> 0 then
  begin
    write('Takogo fayla ne sushestvuet, no my ego sozdadim!');
    readln;
    rewrite(a);
    rewrite(b);
    reset(a);
    reset(b);
  end;
  {$I+}
  while not eof(a) do
  begin
    while not eoln(a) do
      read(a,s);
    inc(u);
    for i := 1 to length(s) do
    begin
      p := false;
      y := 0;
      reset(b);
    while not eof(b) do
    begin
      while not eoln(b) do
        read(b,d);
      inc(y);
      for j := 1 to length(d) do
        if (s[i] = d[j]) then
        begin
          if (y <> u) or ((y = u) and (j <> i)) then
           begin p := true; break end;
        end;
        readln(b);
        if p then break;
      end;
      if not p then writeln(s[i]);
    end;
    readln(a);
  end;
  write('Rabota okonchena! Nazmite <Enter>.');
  readln
end.