eliminar elemento de un arreglo, Pascal

Language: Layout:

//fpc 3.0.0

program HelloWorld;
const max = 4;
type tipodatovector = integer;
type vector = array [1..max] of tipodatovector;

procedure LLenarArreglo(var arreglo:vector; n:integer);
var i:integer;
begin
    for i:= 1 to n do
    begin
        read(arreglo[i]);
    end;
end;
procedure mostrar(arreglo:vector; n : integer);
var i:integer;
begin
    for i:=1 to n do
    begin
        write(arreglo[i],' ');
    end;
    writeln;
end;
procedure eliminar (var arreglo:vector ;var n:integer; indiceAEliminar:integer);
var i:integer;
begin
    //indice a eliminar, es la posicion del arregloque se va a eliminar
    for i:= indiceAEliminar to n do 
    begin
        arreglo[i]:= arreglo[i+1];
    end;
    n:=n-1;
end;

var arreglo:vector;
    n:integer;
    posicion:integer;
begin
    readln(n);//tamaño logico vector, en este caso le ingresamos 4
    readln(posicion); //la posicion que se va a eliminar
    LLenarArreglo(arreglo,n);//llenamos el arreglo
    mostrar(arreglo,n);//mostramos el arreglo completo
    eliminar(arreglo,n,posicion);//se elimina la posicion ingresada
    mostrar(arreglo,n);//se muestra el arreglo con la posicion eliminada
    
end.

Show compiler warnings [ - ] Show input
Compilation time: 0.12 sec, absolute running time: 0.14 sec, cpu time: 0 sec, memory peak: 3 Mb, absolute service time: 0,35 sec