exercice4 devoir synthésen°1

program exercice;
uses wincrt;
type
sportif=record
id,nbb,nbo,nba:integer;
nom,sport,pay:string;
end;
fs =file of sportif;

var
s:sportif;
f:fs;
g:text;
procedure saisie(var s:sportif; var f:fs);
var
rep:char;
begin
rewrite(f);
repeat
begin
writeln('nom=');readln(s.nom);
writeln('sport=');readln(s.sport);
s.id:=random(100);
s.nbb:=random(10);
s.nba:=random(10);
s.nbo:=random(10);
writeln('pay=');readln(s.pay);
write(f,s);
end;
writeln('voulez vous continuez?');
readln(rep);
until rep='N';
close (f);
end;
procedure afiche( var f:fs);
var
max:integer;
ch:string;
begin
max:=0;
reset(f);
while not eof(f) do
begin
read(f,s);
if (s.nbo*3+s.nba*2+s.nbb)>max then ch:=s.nom;
max:=s.nbo*3+s.nba*2+s.nbb;
end;
writeln('le mailleur sportif est',ch);
close(f)
end;
procedure transfere(var f:fs;var g:text);
begin
rewrite(g);
reset(f);
while not eof(f) do
begin
read(f,s);
if (s.nbb+s.nba+s.nbo)>0 then write(g,s.id)
end;
close(f) ;
close(g);
end;
begin
assign(f,'c:\tournoi\sportif.dat');
assign(g,'c:\tournoi\medail.txt');
saisie(s,f);
afiche(f);
transfere(f,g);
end.

Bravo dalila c'est bien.