Найти среднее арифметическое чётных элементов файла

program z4;
uses crt;
var
  f,f1:file of integer;
  x,n,i,m:integer;
  r:byte;
  S:real;
  begin
    {clrscr;}
    assign(f,'z4.dat');
    REPEAT
      {clrscr;}
      writeln('MENU');
      writeln('1-CREATE FILE');
      writeln('2-VIEW FILE');
      writeln('3-UPDATE FILE');
      writeln('4-CUT FROM FILE');
      writeln('5-TASK COMPLETION');
      writeln('6-EXIT');
      writeln('Choose the task');
      read(r);
    case r of
      1:begin
        {$i-}
        rewrite(f);
        {$i+}
        if FileExists('z4.dat')=false
        then begin
          write('file already exists');
          CLOSE(F);
          exit;
        end;
        writeln('stopping the creation process - 9999');
        repeat
          read(x);
          if x<>9999
          then write(f,x)
          else break;
        until false;
        writeln('file created');
        close(F);
      end;
      2:begin
        {$i-}
        reset(f);
        {$i+}
        if FileExists('z4.dat')=false then
        begin
          write('file does not exist'); CLOSE(F);
          exit;
        end;
        writeln('files data');
        while not eof(f) do
        begin
          read(f,x);
          writeln(x,'')
        end;
        writeln('file have been read');
        close(f);
      end;
      3:begin
        {$i-}
        reset(f);
        {$i+}
        if FileExists('z4.dat')=false then
        begin
          write('file does not exist'); CLOSE(F);
          exit;
        end;
        seek(f,filesize(f));
        writeln('stopping the creation - 9999');
        repeat
          read(x);
          if x<>9999
          then write(f,x)
          else break;
        until false;
        close(F);
      end;
      4:begin
        {$i-}
        rewrite(f1);
        {$i+}
        if FileExists('z4.dat')=false
        then begin
          write('file already exists');CLOSE(F1);
          exit;
        end;
        {$i-}
        reset(f);
        {$i+}
        if FileExists('z4.dat')=false
        then begin
          write('file does not exist');CLOSE(F);
          exit;
        end;
        writeln('file data');
        while not eof(f) do
        begin
          read(f,x);
          write(x,'CUTFROMFILE?(Y/N)');
          if readkey='N' then write(f1,x);
        end;
        CLOSE(F);CLOSE(F1);
        ERASE(F);
        rename(f1,'z4.dat');
      end;
      5:begin
        s:=1;
        {$i-}
        reset(F);
        {$i+}
        if FileExists('z4.dat')=false
        then begin
          write('file does not exist');CLOSE(F);
          exit;
        end;
        writeln('file data');
        while not eof(f) do
          begin
          read(f,x);
          writeln(x,' ');
          if not odd (x) then
            s:=x/n;
          end;
          writeln(x,' ');
          close(f);
          writeln;
          writeln('TASK COMPLETED - RESULT IS ',s:0:2);
        end;
        6:exit;
    end;
    until false;
  end.

  n:=0;
  while not EoF(f) do begin
    Read(x);
    if not Odd(x) then begin
      Inc(n); s:=s+x;
    end;
  end;
  if n>0 then
    WriteLn('Avg = ',s/n)
  else
    WriteLn('четные отсутствуют');