Шифрование. Проблема с чтением и записью файла.

//---------------------------------------------------------------------------
#include <stdlib.h>
#include <vcl.h>
#pragma hdrstop
#include <stdio.h>
#include "Unit1.h"
#include <iostream.h>
#include <io.h>
#include <conio.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int i,q;
char leftm[5120],rightm[5120];
TStringList *List = new TStringList;
AnsiString Nopen, Nsave ="";
 int p=5;
    char key[5]="31337";
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
OpenDialog1->Execute();
FILE *F;
Nopen=OpenDialog1->FileName.c_str();
Label1->Caption =Nopen;
F=fopen(Nopen.c_str(),"r");
 
        char buf[10240];
        char  rline[84];
        AnsiString st;
        do{
        fgets(rline,84,F);
        st=st+rline;
        if (st.Length()%2!=0)
        st=st+' ';
        q=st.Length();
        if (feof(F)) break;
        if (rline[strlen(rline)-1]== '\n') rline[strlen(rline)-1]=0;
        }while(true);
        fclose(F);
        int j=0;
        for (i=1;i<(q/2);i+=2)
        {
         rightm[j]=st[i];
         leftm[j]=st[i+1];
         j++;
         }
      //   if (i%2 !=0)
 //leftm[i/2+1]=' ';
 
 
 
}
 
void crypto()
{
int temp;
for (int n=0;n<i;n++)
{
 for(int v=0;v<p;v++)
 {
  temp=rightm[n]^(leftm[n]+key[v]);
  rightm[n]=leftm[n];
  leftm[n]=temp;
 }
}
 
}
 
void decrypto()
{
int  temp;
for (int n=0;n<i;n++)
{
 for(int v=p-1;v>=0;v--)
 {
  temp = leftm[n] ^ (rightm[n]+key[v]);
  leftm[n] = rightm[n];
  rightm[n] = temp;
 }
}
 
}
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{ AnsiString tmp="";
crypto();
 
for (int k=0;k<=i/2;k++)
 {
 tmp+=rightm[k];
 tmp+=leftm[k];
 }
 if (SaveDialog1->Execute())
  {Nsave=SaveDialog1->FileName;
  List->Clear();
List->Add(tmp);
 
List->SaveToFile(Nsave);
   }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
AnsiString tmp="";
    decrypto();
  for (int k=0;k<=i/2;k++)
 {
 tmp+=rightm[k];
 tmp+=leftm[k];
 }
 List->Clear();
 List->Add(tmp);
 if (SaveDialog1->Execute())
  {Nsave=SaveDialog1->FileName;
List->SaveToFile(Nsave);
} }
//---------------------------------------------------------------------------