Con este programa vamos a poder eliminar una parte de la palabra

program Project13;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var pal:string;
    i,f:integer;     //estas variables van a controlar lo que se va a 

eliminar
begin
  { TODO -oUser -cConsole Main : Insert code here }
  Writeln('ingrese su palabra');
  readln(pal);
  writeln('su palabra es = ',pal);
  write('eliminar desde la posicion ');
  readln(i);
  write('cuantos caracteres? ');
  readln(f);
  Delete(pal,i,f);//esta funcion eliminar una subcadena de nuestra 

cadena (pal)
                 //elimina desde la posicion "i" una cantidad "f" de 

caracteres
  writeln('su palabra es = ',pal);
  readln;
end.