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

program zz1;

var i, a1, a2, a3, a4:integer;

begin

for i:=1234 to 9999 do / /организуем перебор всех четырехзначных чисел от 1000 до 9999

begin

a1:=i div 1000; / /получаем первую цифру четырехзначного числа

a2: = (i div 100) mod 10; / /получаем вторую цифру четырехзначного числа

a3: = (i div 10) mod 10; / /получаем третью цифру четырехзначного числа

a4:=i mod 10; / /получаем четвертую цифру четырехзначного числа

if (a1a2) and (a1a3) and (a1a4) and (a3a2) and (a4a2) and (a3a4) and (a1>a2) and (a2>a3) and (a3>a4)

then write (i,' '); / / проверяем, если у числа все цифры неодинаковые и первая цифра больше второй, вторая больше третьей, третья больше четвертой, то выводим это число на экран в строчку через пробел

end;

end.