Удаление элемента массива со сдвигом

const n=10;
var mass:array[1..n] of integer =(1,2,3,4,5,6,7,8,9,10);
procedure del (a:integer);
var i:integer;
begin
for i:=1 to n do
if ((mass[i]=a)and(a<>n)) or ((i>a)and(i<>n)) then mass[i]:=mass[i+1] ;
end;
 
var i :integer;
begin
del(10);
for i:=1 to n-1 do
write(mass[i])  ;
readln
end.

const n=10;
var mass:array[1..n] of integer ;
procedure del (a:integer);
var i:integer;
begin
for i:=1 to n do
if ((mass[i]=a)and(a<>n)) or ((i>a)and(i<>n)) then mass[i]:=mass[i+1] ;
end;
 
var i :integer;
begin
for i:=1 to n do mass[i]:=i;
del(10);
for i:=1 to n-1 do
write(mass[i])  ;
readln
end.

procedure del (a:integer);
var i:integer;
begin
for i:=a to n-1 do
mass[i]:=mass[i+1] ;
end;

Var
current_index:integer:;
MyArray:array[0..10] of integer:
Start:integer;
Begin
For start:=0 to 10 do
   Begin
      MyArray[current_index]:=Random(10); Write(MyArray[current_index]); current_index:=current_index+1;
   End;
current_index:=2;
For start:=0 to 10-current_index do
   Begin
      If (current_index=10) then break;
      MyArray[current_index]:=MyArray[current_index+1]; current_index:=current_index+1;
   End;
WriteLn();
current_index:=0;
For start:=0 to 10 do
   Begin
      Write(MyArray[current_index]); current_index:=current_index+1;
   End;
End.

current_index:=10;

If (current_index=10) then MyArray[10]:=0;

const
  n = 10;
 
var
  mass: array[1..n] of integer ;
 
///Удаляет элемент с индексом а
procedure del(a: integer);
begin
  for var i := a to n - 1 do 
    mass[i] := mass[i + 1]
end;
 
begin
  for var i := 1 to n do mass[i] := i;
  del(5);  //удаляем элемент с номером 5
  for var i := 1 to n - 1 do
    write(' ', mass[i])
end.