Паскаль АВС, просит индекс после try

[Izerg]

Написал программу в Turbo Pascal, при попытке перенести её в паскаль ABC вознкла проблема, подскажите пожалуста - что не так?

type
    playtype = '0'..'9';
    seedtype = 0..65535;
    scoretype = 0..4;

var
    pool, target: set of playtype;
    a, b, c, d: playtype;
    seed: seedtype;
    bulls, cows: scoretype;

function random: real;
    begin
        random := seed / 65536;
        seed := (25173 * seed + 13849) mod 65536;
    end;

function unique: playtype;
    var ch: char;
    begin
        repeat
            ch := chr(trunc(10 * random) + ord('0'));
        until ch in pool;
        unique := ch;
        pool := pool - [ch];
        target := target + [ch];
    end;

procedure try(thisone: char);
    var ch: char;
    begin
        read(ch);
        if ch in target then
            if ch = thisone then
                bulls := succ(bulls)
            else
                cows := succ(cows)

    end;

begin
    write('Загадайте случайное число, ');
    writeln('затем отгадывайте');
    readln(seed);
    pool := ['0'..'9'];
    target := [];
    a := unique; b := unique; c := unique; d := unique;
    repeat
        bulls := 0; cows := 0;
        try(a); try(b); try(c); try(d);
        writeln('Быков: ', bulls:1, '; коров: ', cows:1);
        readln
    until bulls = 4;

readln
end.

[veniside]

try — зарезервированное слово.

[Izerg]

Если есть свободное время помогите, другим более рациональным способом записать эту программу......

ее задача - игра быки коровы
загадывается случайное четырехзначное число с неповторяющимися знаками, пользователь должен отгадать - результатом отгадок являются быки и коровы, когда все 4 цифры соответствуют 4 быкам игра заканчивается.

Например генератор чисел сделать через randomize?
И подскажите как эту программу можно зделать с собственным меню: старт игры, ...., выход.
(Через С++ будет намного проще сделать? Просто не разу не программировал на нем.)

[Stilet]

Измени название процедуры try() на другое. Например на tryme()