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

var

i, n, a: integer;

c1, c2, c3, c4: integer;

begin

readln (n) ;

for i : = 1 to n do

begin

readln (a) ;

c1 : = a div 1000;

c2 : = (a div 100) mod 10;

c3 : = (a div 10) mod 10;

c4 : = a mod 10;

if (c1 c2) and (c1 c3) and (c1 c4) and (c2 c3) and (c2 c4) and (c3 c4)

then

writeln ('цифры попарно различны')

else

writeln ('не все цифры попарно различны') ;

end;

end.