удаление в типиз. типах, по номеру записи Опции

[kr3v3tkus]

задача:
1 Открыть файл
2 Добавить запись
3 Изменить запись по номеру
4 Удалить запись по номеру
5 Распечатать построчно
6 Выйти

Проблема с 4 пунктом. Препод сказал сделать так - узнать номер строки, создать новый файл и перенести туда все строки кроме этой, потом - переименовать новый файл в старый. Подскажите плз как сделать, а уж с 5 и 6( ) я сам разберусь

program lol;
uses crt;
label metka1, metka2;
type Pprice=record
		   Pname:string[20];
		   Pvalue:real;
		   end;
var price:file of Pprice;
	  p:pprice;
	  i,n,z,x:integer;
procedure vivod;
begin
  reset(price);
   while not eof(price) do
	begin
	  read(price,p);
	  write(p.pname:10);
	  writeln(p.pvalue:10:2);
	  writeln;
	end;
	close(price);
end;

begin
clrscr;
  begin  {' otkritie '}
	assign(price,'C:\price.dat');
	write('noviy file - 0, redakt - 1  ');
	readln(i);
	if i=0 then rewrite(price) else reset(price);
  end;

	begin  {' dobavlenie '}
	write('dobavit? da - 1, net - 0  ');
	readln(n);
	if n=1 then
	begin
	  metka1:
	  seek(price,filesize(price));
	  write('vvedite na3vanie tovara  ');
	  read(p.pname);
	  write('vvedite na3vanie ceni  ');
	  read(p.pvalue); 
	  write(price,p);
	  write('dobavit? da - 1, net - 0  ');
	  readln(n);
	  if n=1 then goto metka1;
	end;
  close(price);
  end;

	vivod;

	begin  {' i3menenie '}
  reset(price);
	metka2:
	write('vvedite nomer stroki dlia i3meneniya  ');
	readln(i);
	seek(price,i-1);
	write('vvedite na3vanie tovara  ');
	read(p.pname);
	write('vvedite na3vanie ceni  ');
	read(p.pvalue);
	write(price,p);
	write('eshe redaktirovat? da - 1, net - 0  ');
	readln(n);
	if n=1 then goto metka2;
  close(price);
  end;

	vivod;

	begin  {' ydalenie '}
	write('vvedite nomer stroki dlia ydaleniya  ');
	readln(i);
	 ??? 
	end;

readln;
end.

[kr3v3tkus]

я конечно извиняюс за свою тупость, но никак не могу исправить ошибку. volvo вот вы писали дат файлы в константах, тогда их можно в варе не использовать? вобщем я описал вот так

Код

type Pprice=record
             Pname:string[20];
             Pvalue:real;
             end;
var price:file of Pprice;
      newprice:file of Pprice;
      p:pprice;

и естественно ничего не пашет :

Код

begin  {' otkritie '}
  assign(newprice,'C:\newprice.dat');
  rewrite(newprice);
  assign(price,'C:\price.dat');
  write('noviy file - 0, redakt - 1  ');
  readln(i);
  if i=0 then rewrite(price) else reset(price);
end;

...

begin  {' ydalenie '}
  write('ydaliaem 3apis? da - 1, net - 0  ');
  readln(n);
  if n=1 then
  begin
    metka3:
    write('vvedite nomer stroki dlia ydaleniya  ');
    readln(i);
    while not eof(price) do
      begin
      read(price,p);
      if filepos(price)<>i then write(newprice,p);
      end;
  close(newprice);
  close(price);
  erase(price);
  rename(newprice,price);
  assign(price,'C:\price.dat');
  reset(price);
  write('eshe ydaliaem? da - 1, net - 0  ');
  readln(n);
  if n=1 then goto metka3;
  end;
end;

ошибку пишет вот тут - rename(newprice,price) 67ю