Составить программу, которая «задумывает» число в диапазоне от 1 до 10 и предлагает пользователю угадать его за 5 попыток. Игра «Угадай число» — Pascal(Паскаль)

program p1;

label 1, 2;

var
  x, pop, i: integer;
  yg: boolean;
  prod: char;

begin
2:
  x := 1 + random(9);
  yg := false;

  writeln('PK zadymal cislo ot 1 do 10...');
  writeln('a ty poprobyi otgadati s 5 popytkami...');
  for i := 1 to 5 do
  begin
    writeln;
    write('Popitka ', i, ' = ');
    readln(pop);
    if pop <> x then
      writeln('NEverno')
    else
    begin
      yg := true;
      goto 1;
    end;
  end;
  writeln('POPITKI zakoncilisi. Vy proigrali ((');
1:
  if yg then
  begin
    writeln;
    writeln('Vy ugadali! Pozdravlyayu!');
  end;

  write('Vi xotite prodoljiti? (y/n) ');
  readln(prod);
  if prod = 'y' then
    goto 2;
  readln;

end.