Удаление в текстовом файле в заданной позиции заданного количества строк

#include <stdio.h>
#include <string.h>
#include <conio.h>
#include <stdlib.h>

#define MAX_LEN 80
#define NAME_LEN 256

char* puts_r(char *str);
void r_printf(const char * fstr, ...);
FILE* fcreate(char*);
void fappend(FILE*);
void fprint(FILE*,char*);
FILE* fdelete(FILE*,char*,int,int);

int main()
{
    FILE *f;
    char filename[NAME_LEN];
    puts_r("Введите имя файла:");
    gets(filename);
    f=fcreate(filename);
    fprint(f,filename);
    int pos,num;
    puts_r("Введите позицию и количество строк, которые надо удалить:");
    scanf("%d%d",pos,num);
    fdelete(f,filename,pos,num);
    fprint(f,filename);
    return 0;
}
char* puts_r(char *str)
{
    static char out_str[BUF_SIZE];
    CharToOem(str,out_str);
    puts(out_str);
        return out_str;
}

void r_printf(const char * fstr, ...)
{
    char buf[BUF_SIZE];
    va_list va;
    va_start(va,fstr);
    vsnprintf(buf,sizeof(buf)-1,fstr,va);
    va_end(va);
    CharToOem(buf,buf);
    printf(buf);
}

FILE* fcreate(char *filename)
{
      FILE *f;
      if(!(f=fopen(filename,"a")))
      {
          puts_r("Ошибка создания/открытия файла!");
          getch();
          exit(0);
      }
      return f;
}

void fprint(FILE *f,char *filename)
{
      char string[MAX_LEN];
      if(!(f=fopen(filename,"r")))
      {
          puts_r("Ошибка открытия файла!");
          getch();
          exit(0);
      }
      puts_r("Содержимое файла:");
      while(!feof(f))
      {
          fgets(string,MAX_LEN,f);
          printf("%s",string);
      }
      fclose(f);
      getch();
}

FILE* fdelete(FILE *f,char *filename,int pos,int num)
{
      char **temp,str[MAX_LEN];
      int k=0;
      pos=4;
      num=2;
      if(!(f=fopen(filename,"r+")))
      {
          puts_r("Ошибка создания файла!");
          getch();
          exit(0);
      }
      while(fgets(str,MAX_LEN,f)) k++;
      if(!(pos>0)&&(pos<k))
      {
            puts_r("Неверная позиция");
            exit(0);
      }
      if((temp=(char**)calloc(k,sizeof(char*)))==NULL)
      {
          puts_r("Ошибка выделения памяти");
          exit(0);
      }
      for(int i=0;i<k;i++)
          if((temp=(char*)calloc(MAX_LEN,sizeof(char)))==NULL)
          {
                puts_r("Ошибка выделения памяти");
                exit(0);
          }
      int i,k1;
      for(i=0;k1<=pos;k1++)
            fgets(str,MAX_LEN,f);
      for(i=0,k1=pos;k1!=k;k1++,i++)
            fgets(temp,MAX_LEN,f);
      for(i=0;k1<=pos;k1++)
            fgets(str,MAX_LEN,f);
      for(i=0,k1=pos;k1!=k;k1++,i++)
            fputs(temp,f);
      fclose(f);
      fclose(f);
      puts_r("Заданные строки удалены");
      getch();
}