Проблема со счетчиками: / Pascal

n:=7;
nn:=1;
for j:=5 downto nn do // счетчик 1
for i:=0 to n do // счетчик 2
begin
ran:=Random(20000);
Writeln('Write this code: ',ran);
readln(a);
if (aran) then writeln('Incorrect code number you have',j,'trys')
else break;
if (i>3) then writeln('Try again after 15 minutes');
if (i>3) then exit;
end;

Счетчик 2 выполняет свою работу нормально.
Счетчик 1 всегда выдает
'Incorrect code number you have',5,'trys // счетчик всегда стоит на 5.
Нужно чтобы он вел отсчет 5,4,3,2,1 ...