公鸡打鸣

前言
“众里寻他千百度，蓦然回首，那人却在门口小卖部”。欢迎来到嘟嘟课堂。今天，嘟嘟老师讲一道暴力模拟题——公鸡打鸣。
题目描述
鸡国中有两只最喜欢打鸣的公鸡 G1 和 G2，它们每一次打鸣都有一个声音的响度值。一天清晨，G1 开始先开始打鸣，响度值为 x，G2 听到 G1 的打鸣后也开始打鸣，响度值为y。G1 和 G2 很想把它们打鸣声音的响度值调成一样。所以它们进行了 k 次协商，每一次协商后就各自增加或减少一定的响度值再打鸣一次（打鸣的响度值不能小于 0）。G1 和 G2 生性迟钝，它们不知道其实经过 s(s≤k)次协商后，打鸣声音的响度值已经相同了。
请编程帮 G1 和 G2 计算一下它们打鸣声音的响度值相同时最少经过了几次协商（即最小的 s）？
注意：如果 x 一开始就等于 y，则不需要协商。
输入
输入共 k+1 行。
第 1 行三个整数 x，y 和 k，分别表示 G1、G2 第一次打鸣时声音的响度值，共进行了 k次协商并调整打鸣声音的响度值。
接下来 k 行，每行包含 4 个整数 ai，xi，bi，yi，表示第 i 次协商 G1 增加（ai等于 1）或减少（ai等于-1）的响度值为 xi，G2 增加（bi等于 1）或减少（bi等于-1）的响度值 yi。还要注意打鸣的声音不能小于0就行了。
输出
输出 1 行一个整数，表示至少经过多少次协商后 G1 和 G2 的打鸣响度值已经相同。如果经过 k 次协商后仍然无法相同，则输出“-1”（不包含双引号）。
样例输入1
2 3 3
1 1 -1 0
-1 1 1 1
1 1 -1 1
样例输出1
1
样例说明1
在样例 1 中，G1 和 G2 第 1 次打鸣的响度值分别为 2 和 3，不相同。第 1 次协商 G1 增加 1，G2 减少 0，响度值分别为 3 和 3，所以经过 1 次协商后它们两个打鸣的响度值已经相同。经过 3 次协商时，它们的声音也能调成一样，但至少需要 1 次协商就可以了。
样例输入2
2 3 4
1 2 -1 2
-1 1 1 1
-1 4 1 1
1 4 1 1
样例输出2
4
样例说明2
在样例 2 中，G1 和 G2 第 1 次打鸣的响度值分别为 2 和 3，不相同。第 1 次协商后打鸣的响度值分别为 4 和 1，第 2 次协商后打鸣的响度值分别为 3 和 2，第 3 次协商后打鸣的响度值分别为 0（不能小于 0）和 3，第 4 次协商后打鸣的响度值分别为 4 和 4, 所以经过 4 次协商后它们两个打鸣的响度值相同。
样例输入3
2 3 1
1 2 -1 2
样例输出3
-1
样例说明3
在样例 3 中，G1 和 G2 第 1 次打鸣的响度值分别为 2 和 3，不相同。第 1 次协商 G1 增加 2，G2 减少 2，响度值分别为 4 和 1，所以经过 1 次协商后它们两个打鸣的响度值仍然无法相同，则输出“-1”。
数据范围限制

思路
此题非常的水。直接暴力模拟搞事情。学过数组、IF的都可以做。如果A[I]=1就加X[I],否则就减X[I]。如果B[I]=1就加Y[I],否则就减Y[I]。
代码

var
        a,b,c,d:array[1..1000000] of integer;
        i,k,x,y:longint;
begin
        readln(x,y,k);
        for i:=1 to k do readln(a[i],c[i],b[i],d[i]);
        if (x=y) then
        begin
                write(0);
                halt;
        end;
        for i:=1 to k do
        begin
                if (a[i]=1) then inc(x,c[i]) else dec(x,c[i]);
                if (b[i]=1) then inc(y,d[i]) else dec(y,d[i]);
                if (x<0) then x:=0;
                if (y<0) then y:=0;
                if (x=y) then
                begin
                        write(i);
                        halt;
                end;
        end;
        write('-1');
end.