ПРОГРАММА ПОСКАЛЬ 9класс

Как-то смутно описаны правила игры.
А так же неизвестно, какой ПОскаль и на каком уровне изучают в вашем 9 классе.

program N87011225;
uses
  crt;

function Rnd: byte;
begin
  Rnd := random(6) + 1
end;

function Input(UpBound: byte): byte;
var
  Key: byte;
begin
  repeat
    Key := ord(readkey);
    if Key = 0 then
      readkey
  until (Key > $30) and (Key <= UpBound + $30);
  Input := Key - $30;
  writeln(chr(Key))
end;

var
  Player: byte;
  Score: array[0 .. 1] of byte;
begin
  fillchar(Score, sizeof(Score), 0);
  randomize;
  clrscr;
  Player := random(2);
  if Player = 0 then
    writeln('Я первый загадываю число. ')
  else
    writeln('Вы загадываете число первым. ');
  repeat
    case Player of
    0: begin
         writeln(#13#10'Я загадал число от 1 до 6. Угадайте его. ');
         write('> ');
         if Input(6) = Rnd then
         begin
           writeln('Правильно! ');
           inc(Score[1])
         end
         else
           writeln('Неправильно. ')
       end;
    1: begin
         write(#13#10'Загадайте число от 1 до 6 ');
         writeln('и нажмите любую клавишу');
         readkey;
         writeln('Вы загадали число ', Rnd);
         writeln('1 - Правильно');
         write('2 - Неправильно'#13#10'> ');
         if Input(2) = 1 then
           inc(Score[0])
       end;
    end;
    Player := 1 - Player;
    writeln('Счёт ', Score[0], ':', Score[1]);
  until (Score[0] = 10) or (Score[1] = 10);
  if Score[0] = 10 then
    write('Вы проиграли. ')
  else
    write('Вы выиграли. ');
  readkey
end.