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

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 (sumgt;=0) and (ilt;=n) and (jlt;=m) do 
begin 
Случайное число 0,1 
a:=random(2); 
Если 0, то выбор из первой кучки, если 1, - то из 2-ой 
if (a=0) then begin 
Подсчет суммы 
sum:=sum+x[i]; 
i:=i+1; 
end 
else begin 
Подсчет суммы 
sum:=sum+y[j]; 
j:=j+1; 
end; 
Максимальная сумма 

if sumgt;msum then msum:=sum; 
end; 
Завершилась 2-ая кучка, продолжаем брать из первой 

if ilt;=n then begin 
while ilt;=n do begin 
Подсчет суммы 
sum:=sum+x[i]; 

Если сумма отрицательна, то выход из цикла 
if sumlt;0 then i:=n+2; 

Максимальная сумма 

if sumgt;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 (sumgt;=0) and (ilt;=n) and (jlt;=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 sumgt;msum then msum:=sum;
end;
Завершилась 2-ая кучка, продолжаем брать из первой

if ilt;=n then begin
while ilt;=n do begin
Подсчет суммы
sum:=sum+x[i];

Если сумма отрицательна, то выход из цикла
if sumlt;0 then i:=n+2;

Наибольшая сумма

if sumgt;msum then msum:=sum;
inc(i);
end;