Дан массив с(20) целых чисел заданных с клавиатуры. сумма каких элементов массива больше, первых десяти или последних?

var c: array [1..20] of integer;

i,s1,s2: integer;

begin

s1:=0;

s2:=0;

for i:=1 to 20 do begin

write('Ввод значения для c[',i,'] - ');

readln(c[i]);

if i<=10 then s1:=s1+c[i] else s2:=s2+c[i];

end;

if s1>s2 then writeln('Сумма первых 10 элементов больше, чем последние 10 элементов')

else if s2>s1 then writeln('Сумма последних 10 элементов больше, чем первые 10 элементов')

else if s1=s2 then writeln('Первые 10 элементов равны последним 10 элементам');

end.

Рассмотрен, также, вариант "если они равны" (можете удалить последнее условие, если не нужно)