uses crt;
type student=record
         name:string[20];
         age,weight:byte;
        end;
var group:array [1..50] of student;
      i,n:byte;
      averweight:real;
      f: file of student;
begin clrscr;
          write ('Enter amount of students: ');
          readln (n);
          writeln ('Enter the information about students:');
          assign (f,'group.dat');
          rewrite (f);
         for i:=1 to n do begin
          with group[i] do begin
           write ('Name: ');
           readln (name);
           write  ('Age: ');
           readln (age);
           write ('Weight: ');
           readln (weight);
           averweight:=averweight+weight;
          end;
          write (f,group[i]);
          writeln;
         end;
         clrscr;
         averweight:=averweight/n;
         writeln ('Average weight is ',averweight:4:2);
         close (f);
         reset (f);
         writeln ('N':5, 'Name':22, 'age':5, 'weight':8, 'Weight is above the averege':30);
         for i:=1 to n do begin
           read(f,group[i]);
           with group[i] do
           write (i:5, name:22, age:8, weight:5);
           if group[i].weight>averweight then
            writeln ('Yes':10)
           else 
            writeln;
         end;
         close(f);
         readkey;
end.