Как удалить элемент массива в pascal?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13

var 
  a: array  of integer;
  i: integer;
begin
	//Создали массив из 10 элементов
	SetLength(a, 10);
	
    //удаляем элемент с индексом 5 (индексация от 0)
    for i:= 4 to 9 do
      a[i]:= a[i+1];  
    SetLength(a, 9);

end;