Pascal/Turbo Pascal - Nesesito el codigo de como grabar buscar modificar

Si me podrian dar el código de un ejemplo pequeño de como grabar buscar modificar y eliminar en pascal Grasias

Grabar, buscar, modificar y eliminar ¿qué cosas?, ¿nodos de una lista?, ¿registros de un archivo?, ¿posiciones de un vector o matriz?.

Disculpa por no describirlo bien pero es registros de un archivo

Ok.
Para dar de alta
Seek(F, FileSize(F));
writeln(F, Registro);
Para modificar
Seek(F, Nro_Registro);
writeln(F, Registro_Modificado);
Para buscar
Encontrado:=false;
reset(F);
while (Encontrado = false) and not Eof(F) do
begin
Readln(F, Registro);
if Registro = Dato_Buscado then Encontrado:=true;
end;
Para eliminar es más complicado ya que DOS no tiene una función de bajo nivel para borrar "en el medio" y desplazar los datos que están por arriba para cubrir el "hueco", tienes que implementar un volcado a un archivo temporar dejando solo los válidos en el temporal, borrar el archivo oficial y renombrar el temporal. Este tema ya se había discutido con anterioridad en este foro, te sugiero que veas las páginas anteriores.