Помощь по коду

[Макс1133]

program game;
label 1;
var a,b:integer;
begin
  a:=Random(101);
  Writeln('Я загадал число от 1 до 100. Попробуйте его угадать. ');
  1:
  Read(b);
  if b>a then
    Begin
      Write('мое число больше');
      goto 1;
    end
  else
  begin
    if b<a then
      Begin
        write('мое число меньше');
        goto 1;
      end
    else Write('Вы угадали!'); 
  end
end.

Каждый раз выдает "Моё число меньше".

[Вадим Мошев]

Перед использованием функции random надо инициализировать генератор случайных чисел - вызывается процедура Randomize (без параметров и вообще без скобок). Вызывайте её после begin сразу же.

P.S. Не пользовались бы вы оператором goto. Это плохой тон.

[newerow1989]

var a,b:integer;
begin
  Randomize;
  a:=Random(101);
  Writeln('Я загадал число от 1 до 100. Попробуйте его угадать. ');
  Repeat
     Readln(b);
     if b>a then
        Writeln('мое число больше') else
     if b<a then
        writeln('мое число меньше') else
        Writeln('Вы угадали!');
  Until a=b;
  Readln;
end.