Фальшивомонетчики!

Program zach;
uses crt;
var
a:array[1..50] of 1..1000;
a1:array[1..10000] of integer;
b:array[1..50] of 1..1000;
b1:array[1..10000] of integer;
l,j,s,x,i,n,m:integer;
q,ss,k,w:longint;
begin
clrscr;
writeln('Vvedite symmy:');
readln(x);
writeln('Vvedite kolichestvo monet pokypatila:');
readln(n);
writeln('Vvedite ih dostoinstvo:');
for i:=1 to n do readln(a[i]);
writeln('Vvedite kolichestvo monet prodavca:');
readln(m);
writeln('Vvedite ih dostoinstvo:');
for i:=1 to m do readln(b[i]);
i:=1;j:=1;
while (s<>x) and (j<>n) do begin
while (s<x) and (i<=n) do begin
s:=s+a[i];i:=i+1;end;
if (s>x) and (i-1<>n) then s:=s-a[i-1];
if (i-1=n) and (s<>x) then begin j:=j+1; i:=j; s:=0; end;
end;
if s=x then write('1') else begin
for i:=1 to n do begin
s:=0;
for j:=i to n do begin s:=s+a[j];
if s>x then begin k:=k+1; a1[k]:=s-x;end;
end;
end;
for i:=1 to m do begin
s:=0;
for j:=1 to m-1 do begin s:=s+b[j]; w:=w+1; b1[w]:=s;end;
end;
ss:=1;q:=1;
while ss<>k do begin
while q<>w do begin
if a1[k]=b1[w] then l:=1;
q:=q+1;
end;
ss:=ss+1;q:=1;
end;
write('Otvet:',l);
end;
readkey;
end.

Program vyborki;
uses crt;
Type TArrByte=Array[1..100]Of Byte;
     TArrInt=Array[1..100]Of Integer;
Var
   A,B:TArrInt;
   flag1,flag2:TArrByte;
   i,n,m:integer; Resh:boolean;
   SumPok,SumProd,Tsena,Sdacha:Integer;
 
{}Function proverka(Var flag:TArrByte):Boolean;
Var i:Integer; f:Boolean;
Begin f:=False;
      For i:=1 To N Do If flag[i]=0 Then F:=True;
      proverka:=F; End;
 
{}Procedure Variant(Var flag:TArrByte; Var Arr:TArrInt; Var Sum:Integer);
Var i,j:Integer;
Begin i:=1;
      While (flag[i]=1)and(i<=n) Do i:=i+1;
      If i<=n Then Begin
         flag[i]:=1;
         For j:=1 To i-1 Do flag[j]:=0;
      End;
      Sum:=0;
      For i:=1 To n Do If flag[i]=1 Then Sum:=Sum+Arr[i];
End;
 
{}Procedure Sravnenie;
Begin If SumPok=Tsena Then Resh:=True; End;
 
BEGIN
clrscr; Resh:=False;
Assign(input,'dengi.txt'); Reset(input);
Readln(Tsena); Readln(n);
For i:=1 To n Do Begin
    read(A[i]);
    flag1[i]:=0;
End;
Readln(m);
For i:=1 To m Do Begin
    read(B[i]);
    flag2[i]:=0; End;
While proverka(flag1) Do Begin
      Variant(flag1,A,SumPok);
      If SumPok<Tsena Then Continue;
      If SumPok=Tsena Then Begin
         For i:=1 To n Do If flag1[i]=1 Then Write(A[i],'+');
         Write('='); Write(Tsena); Resh:=true;
      End;
      If SumPok>Tsena Then Begin
         Sdacha:=SumPok-Tsena;
         For i:=1 To n Do flag2[i]:=0;
         While proverka(flag2) Do Begin
               Variant(flag2,B,Sumprod);
               If SumProd=Sdacha Then Begin
                  For i:=1 To n Do If flag1[i]=1 then write(A[i],'+');
                  Writeln('=',SumPok,' (pokupatel)');
                  For i:=1 To m Do
                      If flag2[i]=1 Then Write(B[i],'+');
                      Writeln('=',Sdacha,' (prodavec)');Writeln;
                  Resh:=True;
                  Break;
               End;
         End;
      End;
End; If Not Resh Then Writeln('resheniy net!');
END.