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

Спасибо большое

var i,x,a,b,c,d,count:integer;begincount:=0;for i:=1000 to 9999 do begina:=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.