Объясните кто-нибудь каждую строчку!! ! Заранее огромное спасибо!!

uses crt;
const
a: array[1..8] of string=('кукла', 'машинка', 'кубик', 'пирамида',
'лего', 'мяч', 'велосипед','ружье');
var
all,m1,m2,m3,m4,mx,net: set of byte;
x:byte;
begin
m1:=[1, 3, 4, 6];
m2:=[1, 3, 4, 6, 5];
m3:=[1, 3, 4, 6, 5, 2];
m4:=[1, 3, 4, 6, 2];
mx:=[1, 2, 3, 4, 5, 6, 7, 8];
writeln('Есть во всех садиках: ');
all:=m1*m2*m3*m4;
for x:=0 to 255 do if x in all then write(a[x],' ');
writeln;
writeln('Нет ни в одном садике ');
net:=mx-m1-m2-m3-m4;
for x:=0 to 255 do if x in net then write(a[x],' ');
writeln;
readln;
end.