Удалить из массива элементы с номерами от K до L включительно и вывести размер полученного массива - Pascal ABC

Формулировка задачи:

Дан массив размера N и целые числа K и L (1<=K<L<=N). Удалить из массива элементы с номерами от K до L включительно и вывести размер полученного массива и его содержимое. Мне нужно без рандома чтоб было обозначен массив.

const N = 10;
var a:array[1..N]of Integer;
    i, j, k, L:Integer;
 
begin
    randomize;
    for i:=1 to N do a[i] := Random(10)+1;
    repeat
        writeln('K=');
        readln(k);
    until (k>=1)and(k<N);
    repeat
        writeln('L=');
        readln(L);
    until (L>k)and(L<=N);
    
    i := k;
    j := L+1;
    while (i<=L)and(j<=N) do begin
        a[i] := a[j];
        inc(i);
        inc(j);
    end;
    j := N - L + k -1;
    for i:=1 to j do begin
        if i>1 then write(', ');
        write(a[i]);
    end;
    writeln;
end.

напишите хоть кто-нибудь.

Решение задачи: «Удалить из массива элементы с номерами от K до L включительно и вывести размер полученного массива»

Листинг программы

writeln('Введите в строку через пробелы ',N,' целых чисел');
for i:=1 to N do
read(a[i]);
writeln;

Объяснение кода листинга программы

Введите в строку через пробелы N целых чисел:

var a: array[1..N] of integer; i, K, L: integer; begin readln(N, a); for i := 1 to N do a[i] := strtoint(PWideChar(a[i])); // Выводим массив for i := 1 to N do writeln(a[i]); // Удаляем элементы K := 3; L := 5; for i := K to L do a[i] := a[i+1]; // Выводим измененный массив for i := 1 to N do writeln(a[i]); // Выводим размер полученного массива writeln('Размер полученного массива: ', #a - K + 1); end.