найти число где все четыре цифры различны

[Grey64]

Пожалуйста помогите
вот текст. Дано натуральное число n (n<9999) Верно ли, что все четыре цифры различны?
вот моё решение но прога выдает ошибку

program lab1;
var  n1, n2, n3, n4,:word;
begin
writeln('vvedite 4 cifri cherez probeli:');
readln(n, n1, n2, n3);
n1:=ndiv1000;
n2:=ndiv100;
n3:=ndiv10;
n4:=nmod10;
if (n1<>n2) and (n1<>n3) and (n1<>n4) and (n2<>n3) and (n2<>n4) and (n3<>n4) then ('vse cifri razlichi');
else
writeln('est sovpadenia cifr')
end.

From Stilet:Нечего лезть в чужую тему. Это наказуемо

[Stilet]

ndiv

Просто div.

Всмысле:

n1:=n div 1000;

С пробелами
И кстати вводить нужно только n

[Serge_Bliznykov]

после n4 запятая не нужна.
и перед else точка запятой - это тоже ошибка...