типизированный файл, кто чем может

program tip1;
const
  nmax=30;
var
  n,i,j,k:integer;
  x,y:integer;
  f:file of integer;
begin
  assign(f,'file.txt');
   reset(f);
  if IOresult<>0 then begin
    writeln('File not exists');
    rewrite(f);
  end;
  repeat
    write('Massive size up to ',nmax,' n=');
    readln(n);
  until n in [1..nmax];
  write('How many numbers are in file right now:');
  writeln(filesize(f));
  writeln('Massive:');
  k:=filesize(f);
  seek(f,k);
  for i:=1 to n do
    begin
      readln(j);
      write(f,j);
    end;
  writeln;
  close(f);
 
  writeln;
  reset(f);
  i:=1;
  n:=filesize(f)-1;
  while i<n do
    begin
      for j:=i to n-1 do
        begin
          seek(f,j+1);
          read(f,x);
          seek(f,j);
          write(f,x);
        end;
      n:=n-1;
      i:=i+1;
  end;
  seek(f,i);
  truncate(f);
  close(f);
 
  reset(f);
  n:=filesize(f)-1;
  seek(f,0);
  writeln('Deliting even indexes:');
  for i:=0 to n do
    begin
      read(f,x);
      write(x:4);
    end;
  close(f);
  readln;
end.

reset(f);

{$I-} reset(f);  {$I+}