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

uses crt;
var a: array [1..100] of integer;
    N,K,L,i: integer;
    sa: real;
begin
     write ('Укажите размер массива ');
     readln (N);
for i:=1 to N do
    begin
    a[i]:=random(11);
    write (a[i]:3);
    end;
     writeln;
     write ('K=');
     readln (K);
     write ('L=');
     readln (L);
     sa:=0;
     for i:=1 to K-1 do
         sa:=sa+a[i];
     if L<>N then
        for i:=L+1 to N do
            sa:=sa+a[i];
     writeln ('Среднее арфметическое элементов массива');
     writeln ('кроме элементов с номером от ',K,' до ',L,' =',sa/(N-(L-K+1)):2:2);
end.

uses crt;
var a: array [1..100] of integer;   //массив
    N,K,L,i: integer;               //переменные для размера массива, диапазона, счетчика массива
    sa: real;
begin
     write ('Укажите размер массива ');   //запрашиваю и заношу в память размер массива
     readln (N);
for i:=1 to N do                      //запускаю цикл для перебора всех элементов массива
    begin
    a[i]:=random(11);                  //запускаю генератор случайных чисел для заполнения массива
    write (a[i]:3);                   //и в этом же цикле вывожу элементы на экран
    end;
     writeln;
     write ('K=');                    //запрашиваю и заношу в память K и L - диапазон исключения
     readln (K);
     write ('L=');
     readln (L);
     sa:=0;                          //изначально среднее арифметическое у меня равно 0
     for i:=1 to K-1 do              //запускаю цикл до начала диапазона исключения
         sa:=sa+a[i];                //суммирую элементы до К
     if L<>N then                    //если L(конец диапазона исключения) не равно N (размеру массива), то
        for i:=L+1 to N do           //продолжаю суммирование от конца диапазона исключения до конца массива
            sa:=sa+a[i];
     writeln ('Среднее арфметическое элементов массива');
     writeln ('кроме элементов с номером от ',K,' до ',L,' =',sa/(N-(L-K+1)):2:2);  //вывожу на экран сумму, деленную на количество элементов, за исключением диапазона исключения и еще единицы
end.