Все числа, кратные 5, в массиве a[1.4;1.8] с числами в диапазоне 0.100 выделить цветом

uses
    Crt;
var
    ar: Array[1..4, 1..8] Of 0..100;
    count: Array[1..8] Of 0..4;
    i: 1..4;
    j: 1..8;
    min: 0..4;
begin
    Randomize;
    for j := 1 to 8 do
        count[i] := 0;
    for i := 1 to 4 do
    begin
        for j := 1 to 8 do
        begin
            ar[i, j] := Random(101);
            if (ar[i, j] mod 5 = 0)
            then
            begin
                Textcolor(4);
                Inc(count[j]);
            end
            else
                Textcolor(7);
            Write(ar[i, j]:4);
        end;
        WriteLn;
    end;
    Textcolor(7);
    min := count[1];
    for j := 2 to 8 do
        if (count[j] < min)
        then
            min := count[j];
    Write('Столбцы с минимальным количеством /5:');
    for j := 1 to 8 do
        if (count[j] = min)
        then
            Write(j:2);
    WriteLn;
end.