Срочно плз!!! Решить в Паскале

Дык! Ещё вчерась: решили

massiv a : 6; 8; 1; 4; 5; 10; 7; 5; 8; 8;
massiv b : 8; 10; 3; 6; 7; 12; 9; 7; 10; 10;
summa elementov massiva b = 82
------------
massiv a : 8; 1; 8; 6; 6; 2; 10; 5; 4; 10;
massiv b : 10; 3; 10; 8; 8; 4; 12; 7; 6; 12;
summa elementov massiva b = 80
------------
massiv a : 1; 10; 7; 2; 5; 7; 6; 7; 7; 6;
massiv b : 3; 12; 9; 4; 7; 9; 8; 9; 9; 8;
summa elementov massiva b = 78
------------
massiv a : 9; 7; 3; 1; 1; 3; 6; 10; 5; 4;
massiv b : 11; 9; 5; 3; 3; 5; 8; 12; 7; 6;
summa elementov massiva b = 69
------------
massiv a : 10; 4; 3; 5; 7; 4; 7; 7; 4; 10;
massiv b : 12; 6; 5; 7; 9; 6; 9; 9; 6; 12;
summa elementov massiva b = 81
------------
massiv a : 6; 6; 8; 8; 1; 5; 7; 6; 6; 1;
massiv b : 8; 8; 10; 10; 3; 7; 9; 8; 8; 3;
summa elementov massiva b = 74
------------
massiv a : 7; 10; 10; 10; 4; 4; 6; 9; 9; 1;
massiv b : 9; 12; 12; 12; 6; 6; 8; 11; 11; 3;
summa elementov massiva b = 90
------------
massiv a : 10; 6; 7; 8; 5; 5; 9; 1; 4; 1;
massiv b : 12; 8; 9; 10; 7; 7; 11; 3; 6; 3;
summa elementov massiva b = 76
------------
massiv a : 2; 6; 7; 10; 10; 4; 9; 2; 4; 5;
massiv b : 4; 8; 9; 12; 12; 6; 11; 4; 6; 7;
summa elementov massiva b = 79
------------
massiv a : 9; 5; 5; 8; 8; 5; 1; 5; 4; 6;
massiv b : 11; 7; 7; 10; 10; 7; 3; 7; 6; 8;
summa elementov massiva b = 76
------------
massiv a : 5; 1; 1; 6; 3; 10; 5; 10; 1; 1;
massiv b : 7; 3; 3; 8; 5; 12; 7; 12; 3; 3;
summa elementov massiva b = 63
------------
massiv a : 9; 7; 5; 4; 6; 9; 6; 5; 1; 6;
massiv b : 11; 9; 7; 6; 8; 11; 8; 7; 3; 8;
summa elementov massiva b = 78
------------
massiv a : 7; 2; 2; 7; 7; 2; 6; 4; 1; 9;
massiv b : 9; 4; 4; 9; 9; 4; 8; 6; 3; 11;
summa elementov massiva b = 67
------------
massiv a : 4; 8; 5; 1; 2; 2; 10; 2; 9; 1;
massiv b : 6; 10; 7; 3; 4; 4; 12; 4; 11; 3;
summa elementov massiva b = 64
------------
massiv a : 3; 5; 6; 7; 8; 4; 10; 8; 9; 5;
massiv b : 5; 7; 8; 9; 10; 6; 12; 10; 11; 7;
summa elementov massiva b = 85
------------
massiv a : 9; 10; 9; 5; 7; 8; 10; 10; 8; 9;
massiv b : 11; 12; 11; 7; 9; 10; 12; 12; 10; 11;
summa elementov massiva b = 105
------------
massiv a : 5; 8; 9; 10; 9; 3; 8; 7; 1; 3;
massiv b : 7; 10; 11; 12; 11; 5; 10; 9; 3; 5;
summa elementov massiva b = 83
------------
massiv a : 3; 7; 1; 1; 2; 3; 1; 8; 1; 2;
massiv b : 5; 9; 3; 3; 4; 5; 3; 10; 3; 4;
summa elementov massiva b = 49
------------
massiv a : 8; 3; 3; 6; 3; 9; 3; 5; 7; 9;
massiv b : 10; 5; 5; 8; 5; 11; 5; 7; 9; 11;
summa elementov massiva b = 76
------------
massiv a : 5; 10; 9; 6; 9; 5; 4; 7; 6; 7;
massiv b : 7; 12; 11; 8; 11; 7; 6; 9; 8; 9;
summa elementov massiva b = 88
------------
massiv a : 6; 3; 6; 2; 8; 5; 2; 3; 8; 1;
massiv b : 8; 5; 8; 4; 10; 7; 4; 5; 10; 3;
summa elementov massiva b = 64
------------
massiv a : 10; 1; 9; 2; 6; 9; 8; 5; 4; 2;
massiv b : 12; 3; 11; 4; 8; 11; 10; 7; 6; 4;
summa elementov massiva b = 76
------------
massiv a : 3; 7; 10; 2; 9; 7; 6; 7; 6; 7;
massiv b : 5; 9; 12; 4; 11; 9; 8; 9; 8; 9;
summa elementov massiva b = 84
------------
massiv a : 3; 5; 1; 9; 7; 10; 2; 1; 9; 4;
massiv b : 5; 7; 3; 11; 9; 12; 4; 3; 11; 6;
summa elementov massiva b = 71
------------
massiv a : 3; 1; 9; 8; 6; 1; 8; 5; 3; 9;
massiv b : 5; 3; 11; 10; 8; 3; 10; 7; 5; 11;
summa elementov massiva b = 73
------------
massiv a : 3; 10; 6; 2; 3; 9; 2; 4; 3; 7;
massiv b : 5; 12; 8; 4; 5; 11; 4; 6; 5; 9;
summa elementov massiva b = 69
------------

program OK; const Max=10000; var k:longint; s:int64; A,B:array of integer; begin while do begin write('n='); readln(n); setlength(A,n); randomize; for k:=0 to n-1 do begin A[k]:=random(2*Max+1)-Max; write(A[k],'; ') end; writeln; writeln('Сформирован массив А длины ',n); s:=0; setlength(B,n); for k:=0 to n-1 do begin B[k]:=A[k]+2; write(B[k],'; '); s:=s+B[k] end; writeln; writeln('Сформирован массив В длиной ',n); writeln('Сумма его элементов ',s) end end.