Dúvida aula18_1

program aula18_1;
uses crt;
var n, i, k: integer;
x: array [1..50] of integer;
begin
writeln ('Digite N');
readln (n); K:= 1;
x[1]:= 1; {1 divisor de todos os números}
for i:= 2 to n div do {serve para pegar a metade de n}
if n to mod i = 0 do {Divisível} <------ nesse ponto está dando erro, por que ?
begin {início do for}
k:= k+1;
x[k]:= i;
end; {fim do for}
k:= k+1;
x[k]:= n;
writeln ('Divisores');
for i:= 1 to k do
write (x[i], ' ' );
readkey;
end.

por causa desse 'to' ai entre o 'n' e o 'mod' , provavelmente

ps: nao testei aqui . mas tenta corrigir isso
if n mod i = 0 do

fora esse detalhe que o JMatheus disse, tem outro erro de sintaxe aí cara.
Não é "n div", o "div" sempre relaciona dois elementos. No mínimo "n div n".
Fora que o IF sempre termina com THEN e não DO.
Erro básico de sintaxe ;D


OBS: quem notou minha ausência... estou de cama, sinusite agravando e agravando... x.x