Pascal 2 game

program project1;
      uses crt;
var losowa,gracz,win,wybor:integer;

  procedure polowienie;

  begin
randomize;
writeln('Gra "Znajdz liczbe"');
writeln('Ile liczb ma byc w grze?');
readln(losowa);
losowa:=random(losowa);
//writeln('Losowa liczba to: ',losowa);

writeln('Tak wiec zaczynamy!');
writeln('Podaj liczbe ktora wedlug Ciebie zostala wylosowana');
readln(gracz);
repeat
if gracz=losowa then
begin
  writeln('Gratuluje! Zgadles liczbe!');
  writeln('Liczba ktora zgadles to: ',losowa);
  win:=1;
end else
if gracz>losowa then
begin
  writeln('Podales za duza liczbe');
  writeln('Podaj liczbe ponownie');
  readln(gracz);
end else
if gracz<losowa then
begin
  writeln('Podales za mala liczbe');
  writeln('Podaj liczbe ponownie');
  readln(gracz);
end;
until win=1;
    end;

begin
  ClrScr;

writeln('Witaj w programie z grami!');
writeln('Wybierz teraz:');
writeln('1-jezeli chcesz pograc w szukanie liczby przez polowienie');
writeln('2- jezeli chcesz pograc w nic bo jeszcze nic nie zrobilem');
readln(wybor);

if wybor=1 then
begin
polowienie;
end else
if wybor=2 then
begin
writeln('Nic tu nie ma');
end else
writeln('Zla liczba');


readln;
end.