Дано n чисел. найти количество кратных 10

Var a,i,crat: Integer;
begin
WriteLn('введите количество цифр');
readln(a);
for i:=1 to a do
begin
Randomize();
inc(i);
writeln(i);
if (i mod 10 =0) then inc(crat);
end;
writeln('количкство чисел кратных 10=',crat);
end.