Удалить заданное количество элементов после первого элемента. 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.