Создать файл целых чисел. Исключить из него указанную по номеру компоненту. Файл распечатать

Var 
i,k,n,x,z:integer;
f:file of integer;
begin
randomize;
Assign(F,'MyFile1.dat');
writeln('Введите количество целых чисел');
readln(z);
rewrite(f);
For i:=1 to z do
write(f, random(30));
close(f); 
Reset(f); 
Write('содержимое файла: ');
for i:=1 to FileSize(f) do begin
Read(f,k);
Write(k:2,' ');
end;
Close(f);
write('Удалить запись № ');
readln(n);
rewrite(f);
if (filesize(f)<n)or(n<0) then
 begin
  writeln('В файле нет такой записи');
  close(f);
  rewrite(f);
seek(f,n-1)
for i:=n-1 to filesize(f)-2 do
 begin
  seek(f,i+1);
  read(f,x);
  seek(f,i);
  write(f,x);
 end;
seek(f,filesize(f)-1);
truncate(f);
close(f);
write('Press Enter...');
readln;
end;
end.

var
  i, k, n, x, z: integer;
  f: file of integer;
 
begin
  randomize;
  Assign(F, 'MyFile1.dat');
  write('Введите количество целых чисел');
  readln(z);
  rewrite(f);
  for i := 1 to z do
    write(f, random(30));
  close(f); 
  Reset(f); 
  Write('содержимое файла: ');
  for i := 1 to FileSize(f) do 
  begin
    Read(f, k);
    Write(k:2, ' ');
  end;
  Close(f);
  writeln;
  write('Удалить запись № ');
  readln(n);
  reset(f);
  if (filesize(f) < n) or (n < 0) then
  begin
    writeln('В файле нет такой записи');
    close(f);
    write('Press Enter...');
    readln;
    exit;
  end;
  reset(f);
  seek(f, n - 1);
  for i := n - 1 to filesize(f) - 2 do
  begin
    seek(f, i + 1);
    read(f, x);
    seek(f, i);
    write(f, x);
  end;
  seek(f, filesize(f) - 1);
  truncate(f);
  close(f);
  writeln('New file...');
  reset(f);
  while not eof(f) do
  begin
    read(f, x);
    write(x:4);
  end;
  close(f);
end.