Ayuda con ciclo de repeticion(bucle)

[gabtroc]

Me parecio mas facil copiar el codigo que lo tengo en la pc a copiar el algoritmo que lo hice a mano en papel pero tranquilo que el algoritmo lo hago.

Gracias por el codigo ecfisa ya vi cual era mi error ya el programa terminado me quedo asi

Código Delphi [-]
Writeln('Ingrese cuantos digitos desea imprimir en pantalla');
Readln(numlin);
Writeln('Presione ENTER para comenzar el programa');
Readln;

lineas:=0;
cont:=0;

  for x := 1000 to 9999 do
   begin

  //Separacion en digitos individuales

  auxiliar:=x;
  d4:=auxiliar mod 10;
  auxiliar:=auxiliar div 10;
  d3:=auxiliar mod 10;
  auxiliar:=auxiliar div 10;
  d2:=auxiliar mod 10;
  auxiliar:=auxiliar div 10;
  d1:=auxiliar mod 10;

 // comparacion de variables d

  if (d1-d2<>0) then
    if (d1-d3<>0) then
      if (d1-d4<>0) then
        if (d2-d3<>0) then
          if (d2-d4<>0) then
            if (d3-d4<>0) then begin
                          Writeln(x);
                          lineas:=lineas+1;
                          cont:=cont+1;
            if lineas=numlin then  begin
                                Writeln;
                                Writeln('....Presione ENTER para continuar');
                                readln;
                                lineas:=0;
                                end; // 
                                end; // 

end; 

Writeln;
Writeln('Cantidad de numeros sin digitos repetidos: ',cont);

Writeln;
Writeln;
Writeln('Presione ENTER para terminar');
Readln;
end.

Gracias por la ayuda