error in my script Plz help

[x13om13e12x]

i have an identifier problem, which i if i remeber from somewhere correctly means that i have a mismatched begins and ends or repeats and untils. So here is the procedure
Procedure BankingHides; //this is the line that the identifier error is.
begin
CowHideDTM := DTMFromString('78DA6314626060E06740013BD7AD63F80FA 41' +
'981F83F10304A0119AC0C6880118904D2D240428A801A903D 3204' +
'D4B0030971026AD880040F7E35009E8D07F2');
wait(100 + random(135))
for A:= 3 to 8 do
begin
FindBitmapToleranceIn(BankBMP(x,y,MMX1,MMY1,MMX2,M MY2,A);
If(FindBitmapToleranceIn(BankBMP(x,y,MMX1,MMY1,MMX 2,MMY2,A))) then
begin
break;
end;
end;
MMouse(x,y-17,0,0);
Mouse(x,y-17,0,0,true);
flag;
wait(387 + random(154));
repeat
FindColorTolerance(x,y,8096403,MSX1,MSY1,MSX2,MSY2 ,3);
if(not(FindColorTolerance(x,y,8096403,MSX1,MSY1,MS X2,MSY2,3)))then
begin
Tries:=0;
repeat
Wait(400 + random(50));
Tries := Tries + 1;
If Tries=20 then
Begin
Writeln('Cant find Door...next player');
NextPlayer(false);
end;
until FindColorTolerance(x,y,8096403,MSX1,MSY1,MSX2,MSY2 ,3);
end;
until FindColorTolerance(x,y,8096403,MSX1,MSY1,MSX2,MSY2 ,3);
MMouse(x,y,2,2,true);
if(not(IsUpText('ank booth')))
begin
repeat
FindColorTolerance(x,y,8096403,MSX1,MSY1,MSX2,MSY2 ,3);
if(not(FindColorTolerance(x,y,8096403,MSX1,MSY1,MS X2,MSY2,3))) then
begin
Tries:=0;
repeat
Wait(400 + random(50));
Tries := Tries + 1;
If Tries=20 then
Begin
Writeln('Cant find Stairs');
NextPlayer(false);
end;
until FindColorTolerance(x,y,8096403,MSX1,MSY1,MSX2,MSY2 ,3);
end;
until IsUpText('taircase',true)
end;
MMouse(x,y,2,2);
Mouse(x,y,2,2,false);
ChooseOption(x,y,'Use-quickly');
if (FindDTM(CowHideDTM,x,y,558,308,740,463));
begin
Mouse(x,y,2,2,false);
ChooseOption(x,y,'All');
end;
CloseBank;
Loads2:= Loads2 + 1
end;

Plz help ty.