Оцените код(забавные законы относительно транспортных средств)

type 
        TSet = set of byte; 
var 
        i:byte; 
        Bus, Truck, Car, Red, Yellow, White, Black, Sets:TSet; 
function ReadType(aI:byte):TSet; 
var 
        n:byte; 
begin 
        ReadType:=[]; 
        for n:=0 to 255 do 
                if n mod aI=0 then ReadType:=ReadType+[n]; 
end; 
procedure SetOfType(var aBus, aTruck, aCar:TSet); 
var 
        i, j:byte; 
begin 
        i:=7; 
        repeat 
                case i of 
                        7:aBus:=ReadType(i); 
                        5:aTruck:=ReadType(i)-aBus; 
                        else for j:=0 to 255 do 
                                if not (j in aBus+aTruck) then aCar:=aCar+[j]; 
                end; 
                i:=i-2; 
        until i<3; 
end; 
function ReadColor(aI:byte):TSet; 
var 
        n:byte; 
begin 
        ReadColor:=[]; 
        for n:=0 to 255 do 
                if n mod aI=0 then ReadColor:=ReadColor+[n]; 
end; 
procedure SetOfColor(var aRed, aYellow, aWhite, aBlack:TSet); 
var 
        i, j:byte; 
begin 
        i:=4; 
        repeat 
                case i of 
                        4:aRed:=ReadColor(i); 
                        3:aYellow:=ReadColor(i)-aRed; 
                        2:aWhite:=ReadColor(i)-(aRed+aYellow); 
                        else for j:=0 to 255 do 
                                if not (j in aRed+aYellow+aWhite) then aBlack:=aBlack+[j]; 
                end; 
                dec(i); 
        until i=0; 
end; 
procedure WriteSets(aSet:TSet); 
var 
        j, k:byte; 
begin 
        k:=0; 
        for j:=0 to 255 do begin 
                if j in aSet then inc(k); 
        end; 
        write(k, ' '); 
end; 
begin 
        //Множества типов автомобилей 
        Bus:=[]; Truck:=[]; Car:=[]; 
        //Множество цветов 
        Red:=[]; Yellow:=[]; White:=[]; Black:=[]; 
        SetOfType(Bus, Truck, Car); 
        SetOfColor(Red, Yellow, White, Black); 
        for i:=1 to 7 do begin 
                case i of 
                        1:Sets:=Bus; 
                        2:Sets:=Truck; 
                        3:Sets:=Car; 
                        4:Sets:=Red; 
                        5:Sets:=Yellow; 
                        6:Sets:=White; 
                        7:Sets:=Black; 
                end; 
                WriteSets(Sets); 
                if (i=3) or (i=7) then writeln; 
        end; 
        Sets:=(Red*Car)+(White*Truck)+Bus; 
        WriteSets(Sets); 
        readln; 
end.

type TAuto = set of byte; 
procedure WriteSet(const aSet : TAuto); 
var k : integer; 
begin 
for k:=0 to 255 do if k in aSet then Write(k:4); 
Writeln; Writeln('---'); 
end; 
function Count(const aSet : TAuto): integer; 
var k, r : integer; 
begin 
r:=0; 
for k:=0 to 255 do if k in aSet then Inc(r); 
Result:=r; 
end; 
var Bus, Truck, Car : TAuto; 
Red, Yellow, White, Black : TAuto; 
i: integer; 
R: TAuto; 
begin 
Bus:=[]; Truck:=[]; Car:=[]; 
Red:=[]; Yellow:=[]; White:=[]; Black:=[]; 
for i := 0 to 255 do begin 
if (i mod 7 = 0) then Bus:= Bus+[i] 
else 
if (i mod 5 = 0) then Truck:= Truck+[i] 
else 
Car:= Car+[i]; 
end; 
for i := 0 to 255 do begin 
if (i mod 4 = 0) then Red:= Red+[i] 
else 
if (i mod 3 = 0) then Yellow:= Yellow+[i] 
else 
if (i mod 2 = 0) then White:= White+[i] 
else 
Black:= Black+[i]; 
end; 
Writeln(Count(Bus)); WriteSet(Bus); 
Writeln(Count(Truck)); WriteSet(Truck); 
Writeln(Count(Car)); WriteSet(Car); 
Readln; 
Writeln(Count(Red)); WriteSet(Red); 
Writeln(Count(Yellow));WriteSet(Yellow); 
Writeln(Count(White)); WriteSet(White); 
Writeln(Count(Black)); WriteSet(Black); 
Readln; 
R:= Red*Car + White*Truck + Bus; 
Writeln(Count(R)); WriteSet(R); 
Readln; 
end.