Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и удалить k-ый элемент (k = 1 n- любое). пример: исходный массив: 4 -5 3 10 -4 -6 8 -10 1 5 введите число k = 2 результат: 4 3 10 -4 -6 8 -10 1 5

Program a;
var a: array [1..10] of integer;
n,s: integer;
begin
for i:=1 to 10 do begin
a[i]:=random(20)-10;
write(a[i]);
end;
readln(n);
for i:=n to 9 do begin
s:=a[i+1];
a[i+1]:=a[i];
a[i]:=s;
end;
for i:=1 to 9 do
writeln (a[i]);
end.