Синтаксические ошибки

#include <vcl.h>
#include <stdlib.h>
#pragma hdrstop
 
#include "Unit2.h"
#include "Unit1.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
 #include <iostream>
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
int RowSum,ColSum,SowSum;
int minI,minJ,min;
bool minsearch;
bool workcells [15][15];
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::SpeedButton1Click(TObject *Sender)
{
Form2->Close();
Form1->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::SpeedButton2Click(TObject *Sender)
{
Form2->Hide();
Form3->Show();
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm2::SpeedButton4Click(TObject *Sender)
{
int i,j,S,Sr;
srand(14);
for (i=1; i<=StringGrid1->ColCount-2; i++)
S=S+StrToInt (StringGrid1->Cells[StringGrid1->ColCount-1][i]);
for (j=1; j<=StringGrid1->RowCount-2; j++)
Sr=Sr+StrToInt (StringGrid1->Cells[j][StringGrid1->RowCount-1]);
if (S == Sr) minsearch;
else
if(Sr>S) {StringGrid1->ColCount=StringGrid1->ColCount+1; }
else {StringGrid1->RowCount=StringGrid1->ColCount+1; }
}
 
//---------------------------------------------------------------------------
 
 
void __fastcall TForm2::SpeedButton3Click(TObject *Sender)
{
int i,j;
for (i=1; i<=StringGrid1->ColCount; i++)
for (j=1; j<=StringGrid1->RowCount; j++)
StringGrid1->Cells[i][j]="";
for (i=1; i<=StringGrid2->ColCount; i++)
for (j=1; j<=StringGrid2->RowCount; j++)
StringGrid2->Cells[i][j]="";
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm2::SpeedButton5Click(TObject *Sender)
{
 
minsearch;
int i,j;
for (j=1; j<=Form2->StringGrid1->RowCount-2; j++)
for (i=1; i<=Form2->StringGrid1->ColCount-2; i++)
if (workcells[i][j]) {
min=StrToInt(Form2->StringGrid1->Cells[i][j]);
minI=i;
minJ=j;
minsearch=true;       }
for (j=1; j<=Form2->StringGrid1->RowCount-2; j++)
for (i=1; i<=Form2->StringGrid1->ColCount-2; i++) {
if ((workcells[i][j])&&(min>=StrToInt(Form2->StringGrid1->Cells[i][j])))
min=StrToInt(Form2->StringGrid1->Cells[i][j]);
minI=i;
minJ=j;
}
}
 
int setu()
{       
 int a,i,b;
 (a=StrToInt(Form2->StringGrid1->Cells[Form2->StringGrid1->ColCount-1][minJ]));
 for (j=1 (Form2->StringGrid1->colcount-2)(a=a-strtoint(cost[j][minJ]));
 b=StrToInt(Form2->StringGrid1->Cells[minI,Form2->stringgrid1->RowCount-1]);
 for j= 1 to Form2->StringGrid1->RowCount-2 do b=b-strtoint(cost[minI,[j]);
if a=b {
 
for (j= 1; <=Form2->StringGrid1->RowCount-2; do workcells[minI,[j]:=false;
for (j= 1; <=Form2->StringGrid1->ColCount-2; do workcells[[j],minJ]:=false;
 cost[minI,minJ]=inttostr(b);
}
 else
if a>=b then
{
 for j=1; <=Form2->StrToInt->RowCount-2 do workcells[minI,[j]]:=false;
 cost[minI,minJ]=inttostr(b);
}
 else
 {
 for j:= 1 to form2.stringgrid1.colcount-2 do workcells[[j],minJ]:=false;
 cost[minI,minJ]:=inttostr(a);
}
}
 
bool continue;
{
for i:= 1 to form2.stringgrid1.colcount-2 do
for j:= 1 to form2.stringgrid1.rowcount-2 do
if workcells[i,j] then continue:=true;
}
 
summa(var sum:integer);
{
sum:=0;
for (i= 1; <=Form2->stringgrid1->ColCount-2 do
for (j= 1; <=Form2->stringgrid1->RowCount-2 do
sum:=sum+strtoint(form2.stringgrid1.cells[i,j])*strtoint(cost[i,j]);
}
 
 
 
 
 
 
 
 
 
/*
 
int RowCount,ColCount,j,i,a,b,x,Ost,Cost,lab1,endd;
if (StringGrid2->ColCount<=StringGrid1->RowCount)
 (endd=StringGrid2->ColCount-2); else
(endd=StringGrid2->RowCount-2);
 
 
for (x=1; a=StrToInt(StringGrid1->Cells[StringGrid2->ColCount-1][x]);
for (j=1; j<=StringGrid2->ColCount-2;  (a=a-StrToInt(cost[j][x]);
b:=StrToInt(StringGrid2.Cells[x]StringGrid2->RowCount-1]);
for (j=1; StringGrid2->RowCount-2 do b:=b-StrToInt(cost[x][j]);
i:=x;
 
 if (a=b){
 Cost[x,x]:=IntToStr(a);
}
else{
 if ((a>b) || (a!=0) )
{
 (Ost=StrToInt(StringGrid2->Cells[i] StringGrid2->RowCount-1]);
 for (j=1;to StringGrid2->rowcount-2 ost=ost-StrToInt(cost[i][j]);
 if ost<>0 then
 {
 if a<=ost then cost[i][x]=IntToStr(a)
 else cost[i,x]:=IntToStr(ost);
}
 a:=StrToInt(StringGrid2->Cells[StringGrid2->colcount-1][x]);
 for j:= 1 to StringGrid2->ColCount-2 do a=a-StrToInt(cost[j][x]);
 i=i+1;
 }
 } else
 
 if a<b then
{
 while b<>0 do
{
 ost=strtoint(StringGrid2->Cells[StringGrid2->ColCount-1][i]);
 for j:= 1 to stringgrid1.colcount-2 do ost:=ost-strtoint(cost[j,i]);
 if ost<>0 then
  {
 if b<=ost then cost[x][i]:=IntToStr(b)
 else cost[x][i]:=IntToStr(ost);
}
  b=StrToInt(StringGrid2->Cells[x][StringGrid2->RowCount-1]);
 for j=1 to StringGrid2->RowCount-2 do b=b-strtoint(cost[x][j]);
 i=i+1;
 }
 
  }
  for j=1 to Form2->StringGrid2->ColCount-2 do Workcells[j][x]=false;
  for j=1 to Form2->StringGrid2->RowCount-2 do Workcells[x][j]=false;
 {
 summa(sum1);
 label8->Pion='sum1 = '+IntToStr(sum1);
 lab1=true;  */
 }