试卷批分pascal程序

某学校进行了一次英语考试，共有10道是非题，每题为10分，解答用1表示“是”，用0表示“非”的方式。但老师批完卷后，发现漏批了一张试卷，而且标准答案也丢失了，手头只剩下了3张标有分数的试卷。

试卷一：① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩
0 0 1 0 1 0 0 1 0 0 得分：70
试卷二：① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩
0 1 1 1 0 1 0 1 1 1 得分：50
试郑三：① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩
0 1 1 1 0 0 0 1 0 1 得分：30

待批试卷：① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩
0 0 1 1 1 0 0 1 1 1 得分：？
问题求解：

请编一程序依据这三张试卷，算出漏批的那张试卷的分数。

这题我是用搜索的方法来做的

我先把试卷的答案记录下来，再一个一个填，填完了就check，如果check成立，那么就输出分数

const
a:array[1..5,1..10]of longint=((0,0,1,0,1,0,0,1,0,0),
(0,1,1,1,0,1,0,1,1,1),
(0,1,1,1,0,0,0,1,0,1),
(0,0,1,1,1,0,0,1,1,1),
(0,0,0,0,0,0,0,0,0,0));
var
b:array[1..5]of longint;
procedure check;
var
i,j:longint;
begin
    fillchar(b,sizeof(b),#0);
    for i:=1 to 4 do
    for j:=1 to 10 do
    if a[i,j]=a[5,j] then inc(b[i]);

    if (b[1]=7)and(b[2]=5)and(b[3]=3) then
    begin
        write(b[4]*10);
        halt;
    end;
    exit;
end;
procedure search(dep:longint);
var
i:longint;
begin
    if dep>10 then
    begin
        check;
        exit;
    end;
    for i:=0 to 1 do
    begin
        a[5,dep]:=i;
        search(dep+1);
    end;
end;
begin
    fillchar(b,sizeof(b),0);
    search(1);
end.