Решение олимпиадных задач

Выпуклые многоугольники
На консультации решили данную задачу на языке Pascal.
Предлагаю полученное решение.

Program z1;
var i,a1,b1,n,m,s,s1,s2:integer;
a:array[1..10000] of integer;
b:array[1..10000] of integer;
begin
read(n,m);
for i:=1 to n do read(a[i]);
for i:=1 to m do read(b[i]);
a1:=a[1]; b1:=b[1];s1:=0; s2:=0;
for i:=1 to n do
if a[i]>a1 then a1:=a[i];
for i:=1 to m do
if b[i]>b1 then b1:=b[i];
for i:=1 to n do
s1:=s1+a[i];
for i:=1 to m do
s2:=s2+b[i];
s:=s1+s2;
if a1>b1 then s:=s-2*b1 else s:=s-2*a1;
writeln(s);
readln;
end.