Random and divide by 3 (in Pascal)

program losowanie; {Skrypt losujący liczbe i wypisujący informacje}
USES CRT;
var i,a,l,max,min,t:integer;
BEGIN
i:=0; {Ilość liczb do wylosowania}
a:=0; {Suma wylosowanych liczb}
t:=0; {Licznik liczb dzielących sie przez 3}
max:= 0; {Maxymalna wylosowana liczba}
min:= 101; {Minimalna wylosowana liczba}
clrscr;
textcolor(green);
repeat
writeln ('Podaj ile liczb ma losowac program: ');
readln(i);
until (i>0) and (i<101);
clrscr;
randomize;
for i:=1 to i do
BEGIN
l:=0;
l:= random(100);
if l > max THEN
BEGIN
max:=l;
END;
if l < min THEN
BEGIN
min:= l;
END;
a:= a + l;
writeln (l);
if (l mod 3 = 0) THEN
t:= t+1;
END;
writeln ('Losowales ',i,' liczb');
writeln ('Srednia z wylosowanych liczb wynosi: ',a/i:2:2);
writeln ('Najwyzsza wylosowana liczba wynosi ',max);
writeln ('Najmniejsza wylosowana liczba wynosi ',min);
writeln ('Z wylosowanych liczb ',t,' dzieli sie przez liczbę 3');
readkey;
END.