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

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 (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) then  if (a>b) and (b>c) and (c>d) then begin count:=count+1; write(i,' '); end; end;  writeln; writeln('Количество: ',count); end.