Описать процедуру InvIntFile, меняющую порядок следования элементов файла целого типа на противоположный - Turbo Pascal

procedure InvIntFile(const S: String);
var
  f: file of Integer;
  e1, e2: Integer;
  i, p: Longint;
begin
  Assign(f,s); {$I-}Reset(f);{$I+}
  if IOResult<>0 then Exit;
  p:=FileSize(f)-1;
  if p>0 then
    for i:=0 to p div 2 do begin
      Seek(f,i); Read(f,e1);
      Seek(f,p-i); Read(f,e2);
      Seek(f,p-i); Write(f,e1);
      Seek(f,i); Write(f,e2);
    end;
  Close(f);
end;
procedure ShowIntFile(const s: String);
var
  f: file of Integer;
  e: Integer;
begin
  Assign(f,s); Reset(f);
  while not EOF(f) do begin
    Read(f,e); Write(' ',e);
  end; WriteLn;
  Close(f);
end;
const
  f: array [1..3] of String[12] = ('file1.bin', 'file2.bin', 'file3.bin');
var
  i: Integer;
begin
  for i:=1 to 3 do begin
    WriteLn('File: ',f[i]); ShowIntFile(f[i]);
    InvIntFile(f[i]); 
    WriteLn('Rev.: '); ShowIntFile(f[i]);
  end;
end.