Error with boolean-result use

[armis]

Hi plz help me,im geting begin expected in writeln procedure but all begins are placed

function FindMine:boolean;
begin
result:=false
if(FindBitmap(mining,x,y)) then result:=true
end;

procedure MnStatus;
begin
if(FindMine=True)then
begin
Writeln('MineFound');
else
Writeln('MineNotFound');
end;

procedure FreeBmps;
begin
FreeBitmap(mining);
end;
end.

[n3ss3s]

try using if(findmine) then

Thats what ive been told to do insteaf of =true.

[Starblaster100]

function FindMine: Boolean;
Begin
Result := false
if(FindBitmap(mining, x, y)) then
Result := true
end;

procedure MnStatus;
begin
if(FindMine = True)then
begin
Writeln('MineFound');
end else
Writeln('MineNotFound');
end;

procedure FreeBmps;
begin
FreeBitmap(mining);
end;

[n3ss3s]

Oh , as starblaster "said" :D u need to make end else