hi out there,

this is what i have so far for the heads or tales programe, i'm getting an error and don't know how to fix it...

[pascal]program heads_tales
var
HoT,
RandomNumber : interger;
begin (* heads or tales *)
writeln ('This is a game of heads or tales');
writeln ('Press 1 for heads or 2 for tales, and then ENTER');
write ('Enter 1 or 2');
writeln ('Thanks for your choice.');
Read (HoT);
RandomNumber = random(1)
if RandomNumber = HoT then
begin
writeln ('Looks like your choice won!');
end;
else
begin
writeln ('Sorry! Try again.')
end;
end.[/pascal]

Any suggestions to fixing the coding

[size=9px](EDIT by WILL: Fixed for the visitor's viewing pleasure. )[/size]