exercice

program exe;
uses wincrt;
type
employe=record
nom:string;
nbh:integer;
ph:real;
sal:real;
end;
fich=file of employe;
tab=array[1..50] of employe;
var
t:tab;
e,e1:employe;
f:fich;
n:integer;

procedure saisie (var f:fich; var n:integer;e:employe);
var
i:integer;
begin
rewrite (f);
repeat
write ('Donne le nombre demloyé :');readln (n);
until (n in [1..20]);
for i:= 1 to n do
begin
with e do
begin
write ('Nom = ');readln (nom);
write ('Nombre dheures de travail = ');readln (nbh);
write ('Prix dheures = ');readln (ph);
sal:=nbh*ph;
end;
writeln;
write (f,e);
end;
end;

procedure ajout (var f:fich;e1:employe);
var
i,p:integer;
begin
reset (f);
repeat
write ('Position = ');readln (p);
until (p in [0..filesize(f)]);
with e1 do
begin
write ('Nom = ');readln (nom);
write ('Nombre dheures de travail = ');readln (nbh);
write ('Prix dheures = ');readln (ph);
sal:=ph*nbh;

end;
for i:= filesize (f) to (p+1) do
begin
seek (f,p);
read (f,e);
seek (f,i);
write (f,e);
end;
close (f);
end;

procedure affiche (var f:fich;e:employe);
begin
reset (f);
while not eof (f) do
begin

read (f,e);
writeln (e.nom,e.nbh,e.ph,e.sal);
end;
close (f);
end;
begin
assign (f,' ');
saisie (f,n,e);
ajout (f,e1);
affiche (f,e);
end.