Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно

const
  n=10;
type
  arr=array [1..n] of integer;
var
  a:arr;
  sum,k,l,i:integer;
 
procedure createvector(var x:arr);
var
  i:integer;
begin
  for i:=1 to n do
    begin
      x[i]:=random(n) - n div 2;
      write(x[i]:4);
    end;
  writeln;
end;
 
begin
  randomize;
  writeln('Массив А:');
  createvector(a);
  write('Введите K: ');  readln(k);
  write('Введите L: ');  readln(l);
  sum:=0;
  for i:=1 to n do
    begin
      if (i>k) and (i<=l) then
        sum:=sum+a[i];
    end;
  writeln;
  writeln('Сумма элементов: ',sum);
  readln;
end.

{$reference System.Core.dll}
uses System.Linq;
const n = 10;
var 
  K, L : integer;
begin
  Randomize;
  var arr := Enumerable.Range(1, n).Select((i : integer) -> Random(-10, 10)).ToArray();
  writeln('A : ', string.Join(',', System.Array.ConvertAll(arr, (i : integer) -> IntToStr(i).PadLeft(3))));
  write('K = '); K := ReadInteger;
  write('L = '); L := ReadInteger;
  
  writeln('Сумма = ', arr.Where((v : integer, i : integer) -> (i + 1 < K) or (i + 1 > L)).Sum());
end.