Подсчитать количество одинаковых чисел в целочисленном массиве - Pascal

const
    nMax = 35;
type
    TArrayType = ShortInt;
    TNonUniq = record
        number: ShortInt;
        count: Byte;
    end;
var
    orig: Array[0..nMax - 1] Of TArrayType;
    nonUniq: Array[0..nMax - 1] Of TNonUniq;
    i, j, nnu, cnu: Byte;
    flag: Boolean;
    sum: Word;
begin
    nnu := 0;
    Randomize();
    Write('Original array:');
    for i := 0 to nMax - 1 do
    begin
        orig[i] := Random(19) - 9;
        Write(orig[i]:4);
        flag := False; j:= 0;
        while ((Not flag) And (j < nnu)) do
        begin
            flag := (orig[i] = nonUniq[j].number);
            Inc(j);
        end;
        if (flag)
        then
            Inc(nonUniq[j - 1].count)
        else
        begin
            nonUniq[nnu].number := orig[i];
            nonUniq[nnu].count := 1;
            Inc(nnu);
        end;
    end;
    WriteLn; sum := 0; cnu := 0;
    for i := 0 to nnu - 1 do
        with nonUniq[i] do
            if (count > 1)
            then
            begin
                WriteLn(number:4, #9, count);
                Inc(sum, count);
                Inc(cnu);
            end;
    WriteLn('Количество повторяемых чисел: ', cnu);
    WriteLn('Количество повторов без первого использования числа: ', sum - cnu);
end.