Операции с файлами в Паскале.

[khorolpavel]

Напишите, пожалуйста, два небольших участка кода при работе с файлами.

1-ый участок кода:
добавление элемента (числового) в отсортированный файл.
2-ой участок кода:
удаление элементов, равных эталонному из отсортированного файла.
Заранее спасибо, тем кто откликнится на мою просьбу.

[puporev]

Вставка числа на место, без нарушения порядка сортировки.

write('Какое число вставить в файл? b=');
readln(b);
reset(f);
{ищем позицию для вставки}
i:=0;
while not eof(f) do
 begin
  read(f,a);
  if a>=b then
   begin
    k:=i;
    break;
   end
  else i:=i+1;
  if i=filesize(f)-1 then k:=i+1;
 end;
close(f);
{вставляем}
reset(f);
for i:=filesize(f) downto k+1 do
 begin
  seek(f,i-1);
  read(f,a);
  seek(f,i);
  write(f,a);
 end;
seek(f,k);
write(f,b);
close(f);

[puporev]

Удаление всех равных эталонному, неважно сортированный файл, или нет.

write('Какое число удалить из файла? b=');
readln(b);
reset(f);
i:=0;p:=0;
while i<filesize(f)-1-p do{последний элемент пока не смотрим чтобы не выйти из файла}
 begin
  seek(f,i);
  read(f,a);
  if a=b then
   begin
    p:=p+1;
    for j:=i to filesize(f)-2-p do
     begin
      seek(f,j+1);
      read(f,a);
      seek(f,j);
      write(f,a);
    end
   end
  else i:=i+1;
 end;
seek(f,filesize(f)-p);{проверяем текущий последний}
read(f,a);
if a=b then p:=p+1;
seek(f,filesize(f)-p);{обрезаем файл}
truncate(f);
writeln('p=',p);
close(f);

[khorolpavel]

Спасибо большое за код, помогли!!!