Вывести на экран и посчитать количество всех четырехзначных чисел, в записи

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 (a1lt;gt;a2) and (a1lt;gt;a3) and (a1lt;gt;a4) and (a3lt;gt;a2) and (a4lt;gt;a2) and (a3lt;gt;a4) and (a1gt;a2) and (a2gt;a3) and (a3gt;a4)
then write(i, ); // проверяем, если у числа все числа неодинаковые и 1-ая цифра больше 2-ой, вторая больше третьей, 3-я больше четвертой, то выводим это число на экран в строку через пробел
end;

end.