Написать программу, обновляющую исходный файл о сдаче экзаменов на основе файла о пересдаче

Program Students; 
Uses Crt; 
Const FileName:String[10]='Stud.dat'; 
Type Sved=record 
FIO:String[50]; 
NomGroup:String[10]; 
Exam:String[15]; 
b1,b2,b3:0..10; 
srednball:Real; 
end; 
Procedure Vvod(var fv:file of sved; rv:sved); 
Begin 
   Assign (Fv,FileName); 
   Rewrite(Fv); 
   While True do 
   With Rv do 
   begin 
     Clrscr; 
     Write ('FIO (priznak okonchaniya vvod ***)-'); 
     ReadLn(FIO); 
     If FIO='***' then 
     begin 
     Close(Fv); 
     Exit; 
   end; 
   Write ('Group -'); 
   ReadLn(NomGroup); 
   Write ('Ocenki -'); 
   ReadLn(b1,b2,b3); 
   srednball:=(b1+b2+b3)/3; 
   Write(Fv,Rv); 
  end 
end; 
 
Procedure Vivod(var fv:file of sved; rv:sved); 
begin 
  writeln; 
  assign(Fv,FileName);
  WriteLn ('Svedeniya o studentah:');
  WriteLn ('Familiya | Group | Ocenki | Srednii ball'); 
  Reset(Fv); 
  While not EOF(Fv) do 
  With Rv do 
  begin 
    Read(Fv,Rv); 
    WriteLn (FIO:10,b1:2,b2:2,b3:2,srednball:5:1); 
  end; 
  Close (Fv); 
   
end; 
 
 
 
 
 
procedure Update(var fv1,fv:file of sved); 
var 
r,u: Sved; 
  begin 
    Assign(fv1,'update.dat');
    Reset(fv1);
    Assign(fv,filename); 
    Reset(fv);
    while not EOF(fv1) do begin 
      Read(fv1,r); 
      {--------------------------}
      u.srednball:=(u.b1+u.b2+u.b3)/3; 
      Seek(fv,0); 
      while not EOF(fv) do begin 
      Read(fv,U); 
      if (r.FIO=u.FIO) and (r.NomGroup=u.NomGroup) then 
      begin
      Seek(fv,FilePos(fv)-1); 
      Write(fv,r); 
      end;
      end; 
      {--------------------------}
      {write(fv,r);}
   end; 
   Close(fv); 
   Close(fv1);
end; 
 
 
Var 
  Fv,Fv1:File of Sved; 
  Rv: Sved; 
  i,N:Byte; 
  FIOO:string;
 
 
Begin 
  Vvod(fv,rv); 
  Vivod(fv,rv); 
  
   
  writeln;
  
  writeln('Vvod rezultatov perezdachi: ');
  Assign (Fv1,'update.dat'); 
  Rewrite(Fv1); 
   repeat
   With Rv do 
   begin 
   
     Write ('FIO (priznak okonchaniya vvod ***)-'); 
     ReadLn(FIO); 
     if fio<>'***' then
     begin
   
     Write ('Group -'); 
     ReadLn(NomGroup); 
     Write ('Ocenki -'); 
     ReadLn(b1,b2,b3); 
     srednball:=(b1+b2+b3)/3; 
     Write(Fv1,Rv); 
    end;
    fioo:=fio;
   end;
   until fioo='***';
  close(fv1); 
  
  Update(fv,fv1);
  vivod(fv,rv);
  readln;
  readln;
 
End.