Разбор программы

Program ferz;
 uses crt,graphABC;
 const desksize=8;
 type sizeint=1..desksize;
 unuses=set of sizeint;
 combinates=array[1..8] of integer;
 var num:byte;
 combinate:combinates;
 unuse:unuses;
 z:integer;
 
 function attack(combinate:combinates):boolean;
 var i,j:byte;
 rightdiag,leftdiag:combinates;
 begin
 attack:=false;
 for i:=1 to desksize do
 begin
 leftdiag[i]:=i+combinate[i];
 rightdiag[i]:=i-combinate[i];
 end;
 for j:=1 to desksize do
 for i:=1 to desksize do
 begin
 if (i<>j) and ((leftdiag[i]=leftdiag[j]) or (rightdiag[i]=rightdiag[j]))
 then
 begin
 attack:=true;
 exit;
 end;
 end;
 end;
 
 procedure output(combinate:combinates);
 var i,j:byte;
 begin
 for i:=1 to desksize do
 for j:=1 to desksize do
 begin
 gotoxy(i,j);
 if(combinate[i]=j) then write(#88) else write(' ');
 end;
 readln;
 end;
 
 procedure create(num:byte; unuse:unuses; combinate:combinates);
 var i:byte;
 begin
 if num<=desksize then
 for i:=1 to desksize do
 begin
 if i in unuse then
 begin
 combinate[num]:=i;
 create(num+1,unuse-[i],combinate);
 end;
 end else if not attack(combinate) then output(combinate);
 end;
 
 procedure spravka;
  begin
           clrscr;
           writeln('');
           writeln('');
           writeln;
           writeln;
           writeln('                     Нажмите кнопку Enter, чтобы продолжить');readln;
           clrscr;
           writeln;
           writeln;
           writeln('                               ');
           writeln('                               ');
           writeln;writeln;
           writeln('                 Нажмите кнопку Enter для выхода в главное меню');
           end;
            begin clrscr;
           repeat
           clrscr;
           writeln('ГЛАВНОЕ МЕНЮ');
           writeln('-------------');
           writeln('1.Запуск');
           writeln('2.Справка');
           writeln('3.Выход');
           write('-->'); read(z);
           case z of
 1: begin
 textmode(c40);
 clrscr;
 [SIZE="5"]unuse:=[1..desksize];[/SIZE] Что он делает?
 [SIZE="5"]create(1,unuse,combinate);[/SIZE] Что он делает?
 end;
   2:begin
  spravka;readln;
    end;
3:begin
exit;
 end;  end; until z=1; end.