Циклический сдвиг вправо в типизированном файле (процедура) - Pascal

const
  n=10;
type
  mas=array [1..n] of integer;
  ifile=file of integer;
var
  x:mas;
  q,i:integer;
  f:ifile;
 
procedure ShiftFileRight(var f:ifile; m:integer);
var
  q,j,p,i:integer;
begin
  reset(f);
  for i:=1 to m do
    begin
      seek(f,filesize(f)-1);
      read(f,p);
      for j:=n-1 downto 1 do
        begin
          seek(f,j-1);
          read(f,q);
          seek(f,j);
          write(f,q);
        end;
      seek(f,0);
      write(f,p);
   end;
  close(f);
 
end;
 
begin
  randomize;
  for i:=1 to n do
    begin
      x[i]:=random(100);
      write(x[i]:4);
    end;
  writeln;
  assign(f,'n.dat');
  rewrite(f);
  for i:=1 to n do
    write(f,x[i]);
  close(f);
  ShiftFileRight(f,1);
  reset(f);
  while not eof(f) do
    begin
      read(f,q);
      write(q:4);
    end;
  close(f);
  readln;
end.