Вывести на экран и посчитать количество всех четырехзначных чисел, в записи которых нет одинаковых цифр, и все цифры идут в убывающем порядке. на паскале

Var i, x, a, b, c, d, count:integer;

begin

count:=0;

for i:=1000 to 9999 do begin

a:=i div 1000;

b: = (i div 100) mod 10;

c: = (i mod 100) div 10;

d:=i mod 10;

if (ab) and (ac) and (ad) and (bc) and (bd) and (cd) then

if (a>b) and (b>c) and (c>d) then begin

count:=count+1;

write (i,' ') ;

end;

end;

writeln;

writeln ('Количество: ', count) ;

end.