Задание на цикл For (Pascal)

[Whitecoat]

"На интервале [n, m] найти:
а) количество чисел, кратных 8;
б) произведение данных чисел"

В коде есть ошибка, но я не знаю какая.
Прошу помочь найти и исправить.
Заранее, спасибо С:

program cikldl9;


{$APPTYPE CONSOLE}

uses
  SysUtils;

var c,n,m,a:integer;
pr:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }

 writeln('vvedite n');
readln(n);
writeln('vvedite m');
readln(m);
pr:=1;
a:=0;


for c:= n to m do
if c mod 8=0 then           
pr:=pr*c;
a:=a+1;


writeln(c);   

writeln('proizvedenie',pr);
readln;
End.

[Mad_Cat]

for c:= n to m do
if c mod 8=0 then  begin          
pr:=pr*c;
a:=a+1;
end;