Работа с файламы

program p1;
uses crt;
var f:file of integer;
    n,i,j,k:integer;
    c:integer;
    p:byte;
    a:array[0..1000] of integer;
Procedure MENU(var p:byte);
  var i:integer;
    Begin
      writeln('Menu');
      writeln('1.Vvod dannih');
      writeln('2.Obrabotka faila');
      writeln('3.Vivod faila');
      writeln('4.vihod');
      writeln;
      writeln('vash vibor - ') ;
      readln(p);
      writeln;
    end;
Begin
clrscr;
Assign (f,'d:\real\data1.txt');
reset(f);
IF filesize (f)=0 then
writeln ('fail pust')
else
  begin
    writeln ('fail ne pust');
    writeln;
    writeln ('fail soderzhit');
    while not Eof (f) Do
      begin
        read (f,a[i]);
        writeln (a[i]);
      end;
  end;
BEGIN
  repeat
  MENU(p);
Begin
  case p of
     1:Begin
           rewrite (f);
           writeln('Vvod/Vivod dannih');
           Write ('vvedite kolichestvo chisel n=');
           Readln (n);
           writeln ('Vvedite elementi massiva:');
           for i:=1 to n do
             begin
               Write('a[',i,']=');
               read (a[i]);
               write (f,a[i]);
             end;
           close (f);
       end;
     2:Begin
        reset (f);
        while not Eof (f) Do
          begin
            read (f,a[i]);
            writeln (a[i]);
          end;
            writeln ('nakhodim vse elementi do 1 chyotnogo');
            j:=0;
            k:=0;
            for i:=n downto 1 do
              begin
                if (a[i] mod 2 =0) then
                k:=i;
              end;
 
            if k=0 then
            writeln('V massive net chisla chetnoe')
           else
              begin
                for i:=1 to k-1 do
                writeln (a[i]);
              end;
           close (f);
         end;
      3:Begin
        writeln('Vivod elementov faila');
        reset (f);
        while not Eof (f) Do
          begin
            read (f,a[i]);
            writeln (a[i]);
          end;       
 4:begin
 writeln('vihod');readln;
   end;
End;
end;
until
  p=4;
readln;
END;
end.

program Lab1;
uses crt;
 
var f:file of integer;
    i,j,k,n:integer;
    c:integer;
    p:byte;
 
    a:array[0..1000] of integer;
 
 
procedure zz1;
begin
           rewrite (f);
           writeln('Vvod/Vivod dannih');
           Write ('vvedite kolichestvo chisel n=');
           Readln (n);
 
 
           writeln ('Vvedite elementi massiva:');
           for i:=1 to n do
             begin
               Write('a[',i,']=');
               read (a[i]);
               write (f,a[i]);
             end;
 
End;
//====================
procedure zz2;
begin
          reset (f);
          while not Eof (f) Do
          begin
            read (f,a[i]);
            writeln (a[i]);
          end;
            writeln;
            writeln ('nakhodim vse elementi do 1 chyotnogo');
            k:=0;
            reset (f);
          while not Eof (f) Do
          begin
            read (f,a[i]);
            if (a[i] mod 2 =0) then
            break;
            k:=k+1;
            writeln (a[i]);
          end;
            writeln('');
            if k=0 then
            writeln('V massive net nechetnih chisel stoyashich do 1  chetnogo');
            if not (a[i] mod 2 =0) then
            writeln('V massive net chetnih chisel');
End;
//====================
procedure zz3;
begin
       writeln('Vivod elementov faila');
        reset (f);
         while not Eof (f) Do
          begin
            read (f,a[i]);
            writeln (a[i]);
          end;
End;
//====================
procedure zz4;
begin
writeln('vihod');
close (f);
End;
//====================
begin
clrscr;
Assign (f,'e:\Программирование и алгоритмизация\data1.txt');
reset(f);
IF filesize (f)=0 then
writeln ('fail pust')
else
  begin
    writeln ('fail ne pust');
    writeln;
    writeln ('fail soderzhit');
    while not Eof (f) Do
      begin
        read (f,a[i]);
        writeln (a[i]);
      end;
  end;
 
 
repeat
  WriteLn;
  WriteLn('Menu:');
  WriteLn('vash vibor:');
  WriteLn( '1 - Vvod dannih.');
  WriteLn( '2 - Obrabotka faila');
  WriteLn( '3 - Vivod faila');
  WriteLn( '4 - vihod.');
  Read(p);
  case p of
  1: zz1;
  2: zz2;
  3: zz3;
  4: zz4;
  end;
 
Until p=4;
end.