напишите программку поиска всех четырёхзначных чисел, у которых все четыре числа

Var i,a,b,c,d,temp:integer;
begin
for i:=1000 to 9999 do
begin
temp:=i
a:=temp div 1000;
temp:= temp mod 1000;
b:=temp div 100;
temp:= temp mod 100;
c:=temp div 10;
d:= temp 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 writeln(i);
end;
end.