Uses crt;
typekayit_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.