[gokhanaygun]

Uses crt;
type
kayit_alani=record
ad:string[25] ;
adres:string[40];
tel:string[12];
end;
var
dosya:File of kayit_alani;
kayit:kayit_alani;
Begin
clrscr;
assign(dosya,'rehber.txt');
{$I-} reset(dosya); {$I+}
if Ioresult <>0 then Rewrite(dosya);
write('Adı soyadi');readln(kayit.ad);
write('Adresi');readln(kayit.adres);
write('Telefon');readln(kayit.tel);
seek((dosya filesize(dosya));
write(dosya,kayit); close(dosya);
readln; end.