Pascal/Turbo Pascal - Como eliminar la posición 3 de un arreglo

Program Algo;

var Lista: array[1..50] of char;

procedure Corrimiento;

var      i: integer;

begin

  for i := 3 to 49 do

    Lista[i] := Lista[i + 1];

  Lista¡[50] := '*';

end;

begin

                                          // Procedimientos anteriores

  Corrimiento;

                                          // Procedimientos posteriores

end.