procedure borrar_linea(y:byte);
begin
gotoxy(1,y);
clreol;
end;
donde "y" es la linea que se va a borrar
clreol - >borra toda una linea en modo texto
otro procedimiento parecido es delline, este procedimiento borra una linea y todo lo que esta abajo de ella lo sube prueba los dos, en el procedimiento de arriba lo unico que tendrias que cambiar seria clreol por delline