Считывать оценки учеников из файла и записывать в outFile количество оценок, сумму, средний балл

Program P_30_01;
 
Var
  inF , outF  :text;
  number :integer;
 
Procedure Hud (var outF :text);
  Begin
    rewrite(outF);
    Writeln(outF,'Nomer Familija   Kolicestvo   Summa    Srednij');
    Writeln(outF,'                    ocenok    ballov     ball');
  end;
 
Function Name () :string;
  Var n :integer;c :char; S : string;
  begin
    S:='';
    Repeat
      Read(inF,c);
    until (Ord(c)>32) or Eof(inF);
    Repeat
      if ord(c)>32 then S:=S+c;
      if Eoln then break;
      read(inF,c);
    until ord(c)<=32;
    Name:=S;
 
  end;
 
Procedure stringCheck ();
  var
    sum , cnt ,n :integer;
    rating :real;
    fam :string;
  begin
    sum:=0;
    cnt:=0;
    fam:=Name();
    while not eoln(inF) do
      begin
        Read(inF,n);
        sum:=sum+n;
        cnt:=cnt+1;
      end;
    if cnt>0 then
      begin
        rating:=sum/cnt;
        Writeln (outF ,number:3,fam:13,cnt:10,sum:12,rating:10:1);
      end
    else
      Writeln (outF ,number:3,'    Uchenik ne attestovan');
  end;
 
 
 
Procedure eklase ();
  begin
    number:=1;
    reset(inF);
    Hud(outF);
    While not Eof(inF) do
      begin
 
        stringCheck();
        number:=number+1;
        readln(inF);
      end;
 
  end;
 
 
 
//MAIN
Begin
  assign (inF,'C:\FILES\inFile.txt');
  assign (outF,'C:\FILES\outFile.txt');
  eklase();
  close(inF);close(outF);
 
End.