program Projectarray;
{$APPTYPE CONSOLE}
uses
  SysUtils;

const
max = 6 ;

type
scorearray = array [1..max] of integer;

var
 a , b : text ;
 score : scorearray;
 c, s ,i:integer ;
 toomany : boolean ;
 avg,sum : real;

 procedure readstudata ( var a :text  ;
                         var score : scorearray  ;
                         var c : integer ;
                         var toomany : boolean);

        begin
        c:=0;
        toomany := true;
        while not eof (a) do
           begin
           read (s);
           c:= c+1;
           read(score[1]);
           end ;             //loop
           if (s > max ) then
           toomany := false ;
           readln;
         end;               //procedure readstudata.

   procedure printgrade (s:integer;
                         avg :real);
           begin
           for i:= 1 to c do
           writeln (b, score[i] , score[i]-avg :12:2);
           if (s > -10 ) then
           writeln (b, ' unsatisfactory ')
           else if ( s > 10 ) then
           writeln (b, ' outstonding ');
           end;


  function mean (var sum :real): real;
      begin
      mean := sum + score[i] ;
      end;

 procedure printable (s : integer;  avg : real);
 var i:integer;
 begin
          sum:= 0;
          for i:= 1 to max  do

          avg :=  mean(sum) / max;
          write ( b, 'id ':3 , 'score' : 5 , 'grade' :6 );
          for i:= 1 to c do
          write (b, 'each student score' , s);
          printgrade (s , avg)
          end;

begin
  assign (a, 'a:a.txt');
  assign (b, 'a:b.txt');
  reset (a);
  readstudata ( a , score , c , toomany);
  if (s <= max ) then
  printable (s,avg)
  else
  writeln (b, 'more data');
  close (a);
  close (b);

end.