Дан массив С,размерностью 50; элементы массива-это числа из интервала от 0

Program massiv;
Const n=50;
Var a: array [ 1 . . n ] of integer;
i, kol: Byte; sum, proz: Longint;
Begin
sum : = 0; proz : = 1;
For i : = 1 to n do
Begin
a [ i ] : = random ( 100 ) + 1;
End;
For i : = 1 to n do
Begin
If ( a [ i ] mod 7 = 0 ) and ( a [ i ] lt; 30) Then
begin
inc ( kol );
sum : = sum + a [ i ];
proz : = proz * a [ i ];
end;
End;
If sum = 0 Then proz : = 0;
WriteLn ( Сумма = , sum, Произведение = , proz, Кол-во , kol );
End.