Паскаль найти сумму первых пяти и последних пяти и сравнить сумму элементов массива

Если будут вопросы или что-то нужно изменить пиши.

const n=10;

var a: array [1 ... n] of integer;

i, s1, S2: integer;

begin

for i : = 1 to n do

begin

a[i] : = Random (100) ;

Write (a[i],' ') ; end;

for i:=1 to n do

if i< (n/2) then S1:=S1+a[i] else S2:=S2+a[i];

writeln;

if S1S2 then if s1Комментировать