Составить программу для нахождения среди трехзначных чисел количество чисел оканчивающихся на 8. pascal abc

Привет!

var  

 x,a,y: integer;

begin

 y:=0;

for x:=100 to 999 do

 begin

   a:= x mod 10;

   if (a mod 8 = 0) and (a<>0) then  

     begin

       write(x,' ');

       y:=y+1;

     end;

 end;

writeln;

writeln('Их количество: ',y);  

end.