из С++ в delphi

[holod2014]

Есть код на С++

Form1(void)
{	
mas = gcnew array<Point^>(4);	
mrs = gcnew array<int>(4);	
for (int i=0; i<4; i++)
{   mas[i] = Point(0, 0);	
mrs[i] = 0;		
}
}
array<Point^> ^mas; 
static array<int> ^mrs; 
static int p;	

void findFunc(){	
for (int i = 0; i < mrs->Length; i++) mrs[i] = 0;
p = 1;
int k = 0;	
int i = 0;
const int N = 10000; 
bool flag = true;	//вспомогательный флаг выхода из цикла
...

В delphi у меня получилось следующее:

const  N=10000;
var
  mas : array[0..3] of TPoint;   
  mrs : array[0..3] of Integer;  
  Pmas:^mas;
  Pmrs:integer;
  i,p,k : Integer;
  flag:Boolean;
begin
  begin
  for i := 0 to 3 do
  begin
    mas[i].X := 0;
    mas[i].Y := 0;
    mrs[i] := 0;
  end;
 
for i:=0 to length(msr) do
begin
msr[i]:=0;
p:=1;
k:=0;
i:=0;
 if flag=they then
    begin
...
end;

Помогите найти ошибки

[Streletz]

Помогите найти ошибки

А, в чём проявляются эти ошибки?