Написать алгоритм, который определит максимально возможное количество задач

uses crt;
type
 children = record
  zd: set of byte; // задачи, которые умеет решать ученик
 end;
 exercise = record
  kol,num: integer; // количество человек на одну задачу и номер задачи соотв-но
 end;
var a: array [1..50] of children;
    b: array [1..50] of exercise;
    i,j,k,n,m,ii,min,resh: integer;
    s: set of byte;
    input,output: text;
begin
 assign(input,'in.txt');
 reset(input);
 read(input,n);
 readln(input,m);
 ii:=1;
 for i:=1 to n do
  begin
  while not eoln (input) do
    begin
     read(input,k);
     include(a[i].zd,k);
     if not (k in s) then
      begin
        b[ii].num:=k;
       include(s,k);
       inc(ii);
      end;
    end;
   readln(input);
  end;
 close(input);
 
 for i:=1 to m do
  for j:=1 to n do
   if b[i].num in a[j].zd then
    inc(b[i].kol);
 
  for i:=1 to m do
   for j:=1 to m do
    if b[i].kol>b[j].kol then
     begin
      ii:=b[i].kol;
      k:=b[i].num;
      b[i].kol:=b[j].kol;
      b[i].num:=b[j].num;
      b[j].num:=k;
     end;

var
N,M,i,k,schet:longint;
input:text;
s: set of byte;
begin
assign(input,'in.txt');
  reset(input);
  read(input,n);
  read(input,m);
    for i:=1 to n+1 do begin
      while not eoln(input)do begin
      read(input,k);
        if not (k in s) then 
        begin
        include(s,k);
        inc(schet);
        break;
        end;
      end;
      readln(input);
    end;
close(input);
writeln('Всего задач: ',schet);
end.