задача в паскале: посреди четырехзначных чисел избрать те у которых: 1. все

Программка вылетает т.к. много значений перебирает, если не хочется сходственного просто смените ограничение.

var i,a,b,c,d:integer;

begin

for i:=1000 to 9999 do begin

a:=i mod 10; 

b:=(i div 10) mod 10; 

c:=(i div 100) mod 10;

d:=(i div 1000) mod 10;

      if (a=b) and (b=c) and (c=d) then writeln ('odinakovie cifri - ',i);

      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('ne odinakovie cifri - ',i);

end;