Дано число n.Определите количество делителей этого числа.(без остатка).Нужно составить программу.Пожалуйста посчитайте пожалуйста,буду очень благодарна

var
n, i, x: integer;
begin
writeln('введите n: ');
readln(n);
write('делители числа ', n, ': ');
for i := 1 to n do
begin
if n mod i = 0 then write(i, ' ');
if n mod i = 0 then x := x + 1;
end;
writeln;
write('количество делителей числа ', n, ': ', x);
end.