Среди четырехзначных чисел выбрать те, в которых все четыре цифры разные

uses crt;
var i,t,s,d,e,k: integer;
begin
for i:=1000 to 9999 do
    begin
    t:=i div 1000;
    s:=i div 100 mod 10;
    d:=i div 10 mod 10;
    e:=i mod 10;
    if (t<>s) and (t<>d) and (t<>e)
       and (s<>d) and (s<>e) and (d<>e) then
           begin
           inc(k);
           write(i,' ');
           if k mod 15=0 then writeln;
           if k mod 300=0 then
              begin
              writeln('press any key to continue');
              readln;
              clrscr;
              end;
           end;
    end;
end.

uses crt;
var i,t,s,d,e,k: integer;
begin
writeln('ââåäèòå ÷åòûðåõçíà÷íîå ÷èñëî');
readln(i);
    begin
    t:=i div 1000;
    s:=i div 100 mod 10;
    d:=i div 10 mod 10;
    e:=i mod 10;
    if (t<>s) and (t<>d) and (t<>e)
       and (s<>d) and (s<>e) and (d<>e) then
           writeln('äà, ÷èñëî èìååò ðàçíûå öèôðû')
           else writeln('íåò, åñòü îäèíàêîâûå');
           end;
       end.