contoh update

procedure update;
begin
clrscr;
assign(f,'data.dat');
reset(f);
assign(g,'data.$$$');
rewrite(g);
write('masukkan nim yang dicari: ');readln(x);
i:=1;
seek(f,0);
while not eof(f) do
begin
read(f,m[i]);
if (m[i].nim=x) then
begin
writeln('data sebelumnya: ');
writeln('nim : ',m[i].nim);
writeln('nama : ',m[i].nama);
writeln('jurusan : ',m[i].jurusan);
writeln('masukkan data baru: ');
write('nama : ');readln(m[i].nama);
write('jurusan : ');readln(m[i].jurusan);
end;
write(g,m[i]);
end;
close(f);
close(g);
erase(f);
rename(g,'data.dat');
tampil;
readln;
end;

-by fitria- ^_^