Удалить заданное количество элементов после первого элемента. pascal abc

Легчайшая.

const N = 10;

var

a: array [1..N] of integer;

K: integer;

begin

for var i:=1 to N do

a[i] := Random(100);

writeln('Элементы массива a: ');

for var i:=1 to N do

write(a[i],' ');

writeln;

K := Random(1,N);

for var i:=K to N-1 do

a[i] := a[i+1];

writeln('После удаления элемента с индексом ',K,':');

for var i:=1 to N-1 do

write(a[i],' ');

writeln;

end.