Вывод латинского квадрата 3 ст.

//Вывод латинского квадрата 3 степени
var
 AABA, ABBA, ACBA, AABB, ABBB, ACBB, AABC, ABBC, ACBC: Integer;
Label 1,2,3;
Begin
Randomize;
      1:AABA:=Random(3);
      ABBA:=Random(3);
      ACBA:=Random(3);
      AABB:=Random(3);
      ABBB:=Random(3);
      ACBB:=Random(3);
      AABC:=Random(3);
      ABBC:=Random(3);
      ACBC:=Random(3);
if (((aaba>Abba) or (abba>aaba)) and ((abba>acba) or (acba>abba)) and ((aaba>acba) or (acba>aaba)))
and (((aabb>abbb) or (abbb>aabb)) and ((abbb>acbb) or (acbb>abbb)) and ((aabb>acbb) or (acbb>aabb)))
and (((aabc>abbc) or (abbc>aabc)) and ((abbc>acbc) or (acbc>abbc)) and ((aabc>acbc) or (acbc>aabc)))
and (((aaba>aabb) or (aabb>aaba)) and ((aabb>aabc) or (aabc>aabb)) and ((aaba>aabc) or (aabc>aaba)))
and (((abba>abbb) or (abbb>abba)) and ((abbb>abbc) or (abbc>abbb)) and ((abba>abbc) or (abbc>abba)))
and (((acba>acbb) or (acbb>acba)) and ((acbb>acbc) or (acbc>acbb)) and ((acba>acbc) or (acbc>acba))) then
begin
writeln(AABA,ABBA,ACBA);
writeln(AABB,ABBB,ACBB);
Writeln(AABC,ABBC,ACBC);
end
else
goto 1;
end.