Задача: написать функцию или процедуру, для того чтобы удалить элемент из массива, по индексу n
при этом массив нужно изменить, чтобы он был без пустого элемента. Как вернуть новый массив?
`procedure DeleteIndexElm(var arr:arrInteger;DelIndex:integer);
var newArrInt:arrInteger;i,j:integer;
begin
if length(arr) < 1 then
exit;
j:=1;
SetLength(newArrInt,length(arr)-1);
for i := 1 to length(arr) do
begin
if i <> DelIndex then
begin
newArrInt[j] := arr[i];
j:=j+1;
end;
end;
SetLength(arr,Length(newArrInt));
arr:=newArrInt;
end;`