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

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.