BAC INFO DJERBA

program ex2;
uses wincrt   ;
type
 ba=record
num,nbt:integer;
mt:real ;
nom:string;end;
fb=file of ba;
var f:fb;
procedure remplire ( var f:fb);
var v:ba;rep:char ;
begin
rewrite (f);
repeat
with v do
begin
write ('num ') ; readln (num);

write ('nom ') ; readln (nom);

write ('montant ') ; readln (mt);

write ('nbt ') ; readln (nbt);
end;
write(f,v);
write (' contunuere ? o/n');
readln (rep);
until (rep='n');
close (f);
end;
procedure affiche ( var f:fb);
var i :integer ;v : ba ;
begin
reset (f);
for i := 1 to filesize(f) do
begin
read (f,v);
write (v.num,v.nom,v.mt,v.nbt)
end;
close (f);
end;
begin
assign(f,'c:\bac2014\app.dat');
remplire (f);
affiche(f);

end.