Type Text files (Databases)

Does any one have samples for using type files. Like a Database in Text.


type
	Tuser = record;
	name: string[30];
	age: string[2];
end;

const
datafile : string = 'data.dat';

var
Ur : file af Tuser;

r : Tuser;

procedure search;

procedure add;

procedure delete;

begin
Var
name: string[30];


ClrScr;

writeln('Your Name');readln(name);

end.