Mastermind @Pascal#2

program mastermind;
uses crt;
var g, ans, _ans: array[0..5] of integer;
var cr, tb1, nir: boolean;
var i, j, cp, gct, cn : integer;
begin
    randomize;
    gct := 0;
    cr := false;
    nir := false;
    for i := 1 to 4 do ans[i] := random(9 - 1) + 1;
    repeat
        inc(gct);
        for i := 0 to 5 do _ans[i] := ans[i];
        cp := 0;
        cn := 0;
        nir := false;
        writeln('G', 4, ', 1-9');
        for i := 1 to 4 do read(g[i]);
        for i := 1 to 4 do if not ((g[i] >= 1) and (g[i] <= 9)) then begin
            writeln('out_of_range');
            nir := true;
            break;
        end;
        if nir then begin
            writeln;
            continue;
        end;
        for i := 1 to 4 do if g[i] = _ans[i] then begin
            inc(cp);
            _ans[i] := 0;
        end;
        for i := 1 to 4 do if not (g[i] = 0) then begin
            tb1 := false;
            for j := 1 to 4 do
                if g[i] = _ans[j] then begin
                    tb1 := true;
                    g[i] := 0;
                    _ans[j] := 0;
                    inc(cn);
                    break;
                end;
        end;
        writeln('g_no_', gct, #13#10, 'CPN ', cp, #13#10, 'CNO ', cn, #13#10);
        if cp = 4 then cr := true;
    until (cr);
    write('win_game:', gct, 'R');
end.