Является ли сумма элементов левой части последовательности больше, чем сумма элементов правой части

Program Massiv_Readln;
 
Uses crt;   // подключаем модули
 
Type
mat = array [1..100] of integer ;
 
var
a:mat; // переменная массива
i,n,x,sum1,sum2:integer; // переменная I вводится как индекс массива
 
begin // начало основной программы
 
 clrscr;   // очищает текстовое окно
//------------------------------------------------------------------------------ // формируем массив 'A'
 Write('Размер массива (до 100) - ');readln(n);   // вводим размер одномерного массива
 
 For i:=1 to n do
    begin
    Write('a[',i,'] = ');
    readln(a[i]); // ввод i- го элемента производится с клавиатуры
    end;
 
//------------------------------------------------------------------------------ // вывод массива 'A'
 Write('Массив: ');
 For i :=1 to n do
    Write (a[i],' '); // вывод массива осуществляется в строку, после каждого элемента печатается пробел
 x:=n div 2;
 Writeln;
 Write('Левая часть последовательность: ');
 For i:=1 to x do
     begin
     write(a[i],' ');
     sum1:=sum1+a[i]; // находим сумма левой части массива
     end;
 Writeln;
 Write('Правая часть последовательность: ');
 For i:=x+1 to n do
     begin
     write(a[i],' ');
     sum2:=sum2+a[i]; // находим сумма правой части последовательности
     end;
 writeln;
 If sum1>sum2 then writeln('Является') else writeln('Не является');   // сравниваем
 
 readkey; // читает символ из буфера клавиатуры.
 
end.

var
a: array [1..100] of integer;
l,q,z,i,n:integer;
begin
writeln('введите длину последовательности');
readln(n);
for i:=1 to n do begin
write('a[',i,']=');
readln(a[i]);
end;
l:=n div 2;
for i:=1 to l do 
q:=q+a[i];
for i:=l+1 to n do 
z:=z+a[i];
if q>z then writeln('является')
else writeln('не является');
end.

Uses crt;   // подключаем модули
 
var
i,n,x,y,sum1,sum2:integer;
 
begin // начало основной программы
 clrscr;   // очищает текстовое окно
//------------------------------------------------------------------------------ //
 Write('Кол-во чисел (до 100) - ');readln(n);   // вводим размер последовательности
//------------------------------------------------------------------------------ //
 x:=n div 2;
 For i:=1 to x do
 begin
 readln(y);
 sum1:=sum1+y; // находим сумму вводимых чисел левой части последовательности
 end;
 For i:=x+1 to n do
 begin
 readln(y);
 Sum2:=sum2+y ;  // находим сумму вводимых чисел правой части последовательности
 end;
 If sum1>sum2 then writeln('Является') else writeln('Не является');   // сравниваем
 
end.

Uses crt;   // подключаем модули
 
var
i,n,x,y,g,sum1,sum2:integer;
 
begin // начало основной программы
 clrscr;   // очищает текстовое окно
//------------------------------------------------------------------------------ //
 Write('Кол-во чисел (до 100) - ');readln(n);   // вводим размер последовательности
//------------------------------------------------------------------------------ //
 x:=n div 2;
 For i:=1 to x do
 begin
 inc(g);  // увеличиваем значение G на 1
 Write('Введите ',g,'-е число: ');
 readln(y);
 sum1:=sum1+y; // находим сумму вводимых чисел левой части последовательности
 end;
 For i:=x+1 to n do
 begin
 inc(g);  // увеличиваем значение G на 1
 Write('Введите ',g,'-е число: ');
 readln(y);
 Sum2:=sum2+y ;  // находим сумму вводимых чисел правой части последовательности
 end;
 If sum1>sum2 then writeln('Является') else writeln('Не является');   // сравниваем
 
end.