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

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