lógica do contador nos vetores

Olá amigos! Gostaria de saber o porquê(lógica) da utilização do contador no for abaixo e explicar a utilização do i e j em problemas com vetores. Grato!

PROGRAM EX1;

USES CRT;

VAR num: ARRAY[1..9] OF INTEGER;

i, j, cont: INTEGER;

BEGIN

CLRSCR;

FOR i:=1 TO 9 DO

BEGIN

WRITELN('Digite o ', i, '§ elemento do vetor ');

READLN(num[i]);

END;

FOR i:=1 TO 9 DO

BEGIN

cont := 0;

FOR j:=1 TO num[i] DO

BEGIN

IF num[i] MOD j = 0

THEN cont := cont + 1;

END;

IF cont = 2

THEN WRITELN('O n£mero ', num[i], ' ‚ primo e ocupa a posi‡Æo ', i);

END;

READLN;

END.