Угадывание целых чисел — Pascal(Паскаль)

uses crt;

var
  number, partner: integer;

label 1;

begin;
  clrscr;
  writeln('Первый игрок, введите число');
  readln(number);
  clrscr;
  writeln('Второй игрок, ваш ход');
1:
  readln(partner);
  IF partner > number THEN
  begin
    writeln('меньше');
    GOTO 1;
  end;
  IF partner < number THEN
  begin
    writeln('больше');
    GOTO 1;
  end;
  IF partner = number THEN
  begin
    writeln('Вы угадали');
    halt;
  end;

end.