Найти все пары конечного множества чисел, между которыми существует отношение быть больше — Pascal(Паскаль)

program pari;
type
   univ=set of 1..255;
var
   a:univ;
   i,j:integer;
begin
   a:=[1,2,3,4,5];
   for i:=1 to 255 do
       if i in a then
          for j:=1 to 255 do
              if (j in a) and (i>j) then
                 writeln('(',i,',',j,')');
end.