var a:array[1..6] of integer;
B:ARRAY[1..6] OF INTEGER;
C:ARRAY[1..6] OF INTEGER;
D:ARRAY[1..6] OF INTEGER;
i,j,k,l:integer;
begin
for i:=1 to 6 do a[i]:=i; 
for j:=1 to 6 do b[j]:=j;     
 for k:=1 to 6 do c[k]:=k;       
 for l:=1 to 6 do d[l]:=l; 
for i:=1 to 6 do  
        for j:=1 to 6 do    
           for k:=1 to 6 do        
              for l:=1 to 6 do      
                writeln( a[i],b[j],c[k],d[l]); 
end.

PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

begin
  for var i:=1 to 6 do
    for var j:=1 to 6 do
      if i<>j then
        for var k:=1 to 6 do
          if (i<>k) and (j<>k) then
            for var l:=1 to 6 do
              if (i<>l) and (j<>l) and (k<>l) then Write(i,j,k,l,' ')
end.