Я делаю мини игру на паскале, и у меня выбор из двух действий но почему то всегда выбирается первое. Подскажите почему

Вот сам код(точнее сломанный фрагмент)


program sfsdf;
uses CRT;
var ОТ,RanM,Max,LvlP,Ruki,Broni:integer;NameP:string;
begin
RanM:=random(16);
NameP:='Лох';
writeln(' ... но после секунды ',NameP,' Понял что надо решать');
writeln('1-вступить в бой');
writeln('2-спрятатся');
readln(ОТ);
if ОТ=1 then;
begin;
ClrScr;
write(NameP,' уже собирался ринутся в бой прямо на кулаках но ');
if RanM=0 then write('Орк');
if RanM=1 then write('Гоблин');
if RanM=2 then write('Волк');
if RanM=3 then write('Вампир');
if RanM=4 then write('Голем');
if RanM=5 then write('Найоёмник');
if RanM=6 then write('Разбойник');
if RanM=7 then write('Маг');
if RanM=8 then write('Фантом');
if RanM=9 then write('Медведь');
if RanM=10 then write('Гигант');
if RanM=11 then write('Цветок-переросток');
if RanM=12 then write('Шпион');
if RanM=13 then write('Эльф-освободитель');
if RanM=14 then write('Дворф-бандит');
if RanM=15 then write('Дикарь');
if RanM=16 then write('Чумной');
writeln(' успел убежать.');
end;
if ОТ=3 then;
begin
ClrScr;
writeln(NameP,' поступить умно и потому спрятался в кусты ожидая пока');
if RanM=0 then write('Орк');
if RanM=1 then write('Гоблин');
if RanM=2 then write('Волк');
if RanM=3 then write('Вампир');
if RanM=4 then write('Голем');
if RanM=5 then write('Найёмник');
if RanM=6 then write('Разбойник');
if RanM=7 then write('Маг');
if RanM=8 then write('Фантом');
if RanM=9 then write('Медведь');
if RanM=10 then write('Гигант');
if RanM=11 then write('Цветок-переросток');
if RanM=12 then write('Шпион');
if RanM=13 then write('Эльф-освободитель');
if RanM=14 then write('Дворф-бандит');
if RanM=15 then write('Дикарь');
if RanM=16 then write('Чумной');
write(' уйдёт к себе домой.');
writeln('Что на удивления произашло довольно скоро.');
end;
end.

 if ОТ=1 then; 

 if ОТ=3 then;