Помогите решить задачу по информатике точнее написать программу!

Program Olimp4(input); Uses CRT; Var x,y:array [1..100] of integer; a,n,m,i,j,k,max,sum,msum:integer; Begin ClrScr; Assign(input,'input.txt');Reset(input); randomize; {Вввод данных из файла} readln(n); for i:=1 to n do read(x[i]); readln; readln(m); for j:=1 to m do read(y[j]); for k:=1 to 10000 do begin sum:=0; i:=1; j:=1; {Пока сумма не отрицательна и кучки не закончились} while (sum>=0) and (i<=n) and (j<=m) do begin {Случайное число 0,1} a:=random(2); {Если 0, то выбор из первой кучки, если 1, - то из второй} if (a=0) then begin {Подсчет суммы} sum:=sum+x[i]; i:=i+1; end else begin {Подсчет суммы} sum:=sum+y[j]; j:=j+1; end; {Максимальная сумма} if sum>msum then msum:=sum; end; {Закончилась вторая кучка, продолжаем брать из первой} if i<=n then begin while i<=n do begin {Подсчет суммы} sum:=sum+x[i]; {Если сумма отрицательна, то выход из цикла} if sum<0 then i:=n+2; {Максимальная сумма} if sum>msum then msum:=sum; inc(i); end;

Program Olimp4(input); Uses CRT; Var x,y:array [1..100] of integer; a,n,m,i,j,k,max,sum,msum:integer; Begin ClrScr; Assign(input,'input.txt');Reset(input); randomize; {Вввод данных из файла} readln(n); for i:=1 to n do read(x[i]); readln; readln(m); for j:=1 to m do read(y[j]); for k:=1 to 10000 do begin sum:=0; i:=1; j:=1; {Пока сумма не отрицательна и кучки не закончились} while (sum>=0) and (i<=n) and (j<=m) do begin {Случайное число 0,1} a:=random(2); {Если 0, то выбор из первой кучки, если 1, - то из второй} if (a=0) then begin {Подсчет суммы} sum:=sum+x[i]; i:=i+1; end else begin {Подсчет суммы} sum:=sum+y[j]; j:=j+1; end; {Максимальная сумма} if sum>msum then msum:=sum; end; {Закончилась вторая кучка, продолжаем брать из первой} if i<=n then begin while i<=n do begin {Подсчет суммы} sum:=sum+x[i]; {Если сумма отрицательна, то выход из цикла} if sum<0 then i:=n+2; {Максимальная сумма} if sum>msum then msum:=sum; inc(i); end;