Пожалуйста, подскажите в чем у меня ошибка?

#include <vcl.h>
#include <iostream.h>
#include <fstream.h>
#include <string.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
freopen("output.txt","w",stdout);
ifstream infile("input.txt");
char s[4][6],st[25],p;
int i,j,ok;
ok=0;
for(i=0;i<4;++i){
for(j=0;j<5;++j){
infile>>s[i][j];
if(s[i][j]=='a') ++ok;
}
s[i][5]=0;
}
if(ok) cout<<"YES"<<endl;
else cout<<"NO"<<endl;
st[0]=0;
for(i=0;i<4;++i)
strcat(st,s[i]);
cout<<strlen(st);
}

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
 
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,y;
a = Edit1 -> Text;
b = Edit2 -> Text;
c = Edit3 -> Text;
d = Edit4 -> Text;
e = Edit5 -> Text;
f = Edit6 -> Text;
g = Edit7 -> Text;
h = Edit8 -> Text;
i = Edit9 -> Text;
j = Edit10 -> Text;
k = Edit11 -> Text;
l = Edit12 -> Text;
m = Edit13 -> Text;
n = Edit14 -> Text;
o = Edit15 -> Text;
p = Edit16 -> Text;
q = Edit17 -> Text;
r = Edit18 -> Text;
s = Edit19 -> Text;
t = Edit20 -> Text;
//AnsiString twr;
//s = Edit1 -> Text;
Edit21->Text = Edit1->Text+Edit2->Text+Edit3->Text+Edit4->Text+Edit5->Text+Edit6->Text+Edit7->Text+Edit8->Text+Edit9->Text+Edit10->Text+Edit11->Text+Edit12->Text+Edit13->Text+Edit14->Text+Edit15->Text+Edit16->Text+Edit17->Text+Edit18->Text+Edit19->Text+Edit20->Text;
                    y = Edit21 -> Text;
    Edit22->Text = String("length of string is: ") + Edit21->Text.Length();
 if  ( AnsiPos("a",y) )
        {
        Edit23->Text = "а is in string";
        }
    else     {
        Edit23->Text = "Error";
                             }
              }