Отсечь элементы файла с n-40 элемента до конца файла

type
Fal=file of integer;
var
FP:Fal;
i,a:integer;
begin
assign (fp,'c:\PABCWork.Net\aaa.dat');
reset (fp);
for i:=1 to 50 do begin
a:=random (50);
write (FP,a);end;
close (FP);
end;
reset(FP);
 
 
while not eof(FP) do
begin
read (FP,a);
 
end;
i:=filesize(FP);
 
 
 
 
 
 
for i:=1 to 40 do
read (FP,a);
end.

uses crt;
var FP:file of integer;
    i,a:integer;
begin
randomize;
assign (fp,'aaa.dat');
rewrite (fp);
for i:=1 to 50 do
 begin
  a:=random (50);
  write (FP,a);
 end;
close (FP);
writeln('Исходный файл:');
reset(FP);
while not eof(FP) do
 begin
  read (FP,a);
  write(a:4);
 end;
writeln;
//удаление элементов 2,5,8
seek(fp,7);
for i:=7 to filesize(fp)-2 do//8
 begin
  seek(fp,i+1);
  read(fp,a);
  seek(fp,i);
  write(fp,a);
 end;
seek(fp,4);
for i:=4 to filesize(fp)-2 do//5
 begin
  seek(fp,i+1);
  read(fp,a);
  seek(fp,i);
  write(fp,a);
 end;
seek(fp,1);
for i:=1 to filesize(fp)-2 do //2
 begin
  seek(fp,i+1);
  read(fp,a);
  seek(fp,i);
  write(fp,a);
 end;
seek(fp,filesize(fp)-3); //обрезаем 3
truncate(fp);
writeln('Удаление элементов 2,5,8:');
seek(fp,0);
while not eof(FP) do
 begin
  read (FP,a);
  write(a:4);
 end;
writeln;
//удаление элементов 40-50
seek(fp,37);
truncate(fp);//обрезаем еще 10, всего 13
writeln('Удаление элементов 40-50:');
seek(fp,0);
while not eof(FP) do
 begin
  read (FP,a);
  write(a:4);
 end;
close(fp);
end.