Phân việc(Only Tiến)

program phanviec;
uses crt;
var
   cv:array[1..10,1..10]of integer;
   a,x,pa_max:array[1..100] of integer;
   i,j,hs,hs_max,n,t:integer;

Procedure Ve_pa(mau:integer); {Thu tuc ve phuong an co the xay ra. }
                                    {Nguoi nao lam viec nao thi se to mau: mau}
   var i,j,k:integer;
   begin
       clrscr;
       textcolor(white);
       write('   ');
       for k:=1 to n do write('V',k,' ');
       for i:=1 to n do
           begin
               writeln;
               write('N',i,' ');
               for j:=1 to n do
                   if x[i]<>j then
                      write(cv[i,j]:2,' ')        {Ve Truog hop viec khong ai lam}
                   else
                       begin                   {Ve truog hop viec co nguoi lam}
                            textcolor(mau);
                            write(cv[i,j]:2,' ');
                            textcolor(white);
                       end;
           end;
       writeln;
       if mau=4 then writeln('Tong hieu suat MAX: ',hs_max)
          else
              if mau<>15 then
                 begin
                   writeln('Tong hieu suat: ',hs);
                   writeln('Hieu suat MAX: ',hs_max);
                 end;
   end;

Function TinhHS:integer;
   var k:integer;
   begin
        hs:=0;
        for k:=1 to n do
            hs:=hs+cv[k,x[k]];
        TinhHS:=hs;
   end;

procedure phan_viec(j:integer);
var k,i:integer;
begin
 For i:=1 to n do
   if a[i]=0 then     {a=0: Viec nay chua ai lam}
     begin            {a=1: Viec nay da co nguoi lam}
       x[j]:=i;     {nguoi j lam viec i}
       a[i]:=1;     {danh dau viec i da co ng lam}
       if (j<n) then
          phan_viec(j+1)
       else
           if TinhHS>=hs_max then
              begin
                   for k:=1 to n do
                       pa_max[k]:=x[k];
                   hs_max:=TinhHS;
                   Ve_pa(4); {Ve phuong an max: mau do}
              end
           else Ve_pa(14);  {Ve phuong an tim duoc: mau vang}
      delay(1500);
      a[i]:=0;
     end;
end;

begin
  clrscr;
  hs_max:=0;
  {Nhap du lieu}
  writeln('Nhap so nguoi, so cong viec: ');
  readln(n);
  {Gan tat ca cac cviec k ai lam}
  for i:=1 to n do
      a[i]:=0;
  {Nhap hieu suat cviec}
  for i:=1 to n do
      for j:=1 to n do
    begin
    write('Hieu suat cong viec ',j,' cua nguoi ',i,' la: ');
    readln(cv[i,j]);
    end;
  writeln('Nhan Enter de tiep tuc.');
  readln;
  {In ma tran hieu suat}
  writeln('Ma tran hieu suat cong viec.');
  writeln;
  ve_pa(15);
  writeln('Nhan Enter de tiep tuc');
  readln;
  {Tim va ve cac phuong an}
  phan_viec(1);
  ve_pa(15);
  writeln('Tong hieu suat lon nhat: ',hs_max);
  writeln('Nhan Enter de thoat.');
  readln;
end.