Найти сумму и количество тех элементов массива, которые при делении на 7 дают остаток 1, 2 или 5

const
    n1 = 30;
    n2 = 20;
    n3 = 15;
    n4 = 60;
 
type
    TVector = Array[1..n4] Of ShortInt;
 
procedure InitMass(var ar : TVector; const n : Byte);
var
    i : Byte;
begin
    WriteLn;
    for i := 1 to n do
    begin
        ar[i] := Random(51) - 25;
        Write(ar[i]:4);
    end;
    WriteLn;
end;
 
procedure Zad6(const ar : TVector; const n : Byte; var sum : Integer; var count : Byte);
var
    i : Byte;
begin
    for i := 1 to n do
        if ((ar[i] mod 7) in [1, 2, 5]) //лень писать сравнением
        then
        begin
            Inc(count);
            Inc(sum, ar[i]);
        end;
end;
 
procedure Zad8(const ar : TVector; const n : Byte);
var
    i, maxID, minID : Byte;
begin
    maxID := 1; minID := 1;
    for i := 2 to n do
        if (ar[maxID] < ar[i])
        then
            maxID := i
        else
            if (ar[minID] > ar[i])
            then
                minID := i;
    WriteLn('min, max = ', ar[minID], ', ', ar[maxID]);
end;
 
var
    a, b, c1, c2 : TVector;
    count : Byte;
    sum : Integer;
begin
    Randomize;
    InitMass(a, n1); InitMass(b, n2); InitMass(c1, n3); InitMass(c2, n4);
    sum := 0; count := 0;
    Zad6(a, n1, sum, count); Zad6(b, n2, sum, count); Zad6(c1, n3, sum, count);
    WriteLn('sum=', sum, #9, #9, 'count=', count); WriteLn;
    Write('Array A: '); Zad8(a, n1);
    Write('Array B: '); Zad8(b, n2);
    Write('Array C: '); Zad8(c2, n4);
end.