Uses crt;
Const
 Name:Array[1..3] of String=('mathematics','history','biology');
Type itogi=record
 surname:string[20];
 group:string[10];
 marks:Array[1..3] of byte;
end;
var
 f:file of itogi;
 Nst,x:byte;

procedure vvod;
Var
 k:itogi;
 yn:Char;
begin
 rewrite(f);
 Nst:=0;
 Repeat
  Inc(Nst);
  writeln('Enter the surname:');
  readln(k.surname);
  writeln('Enter the group:');
  readln(k.group);
  write('Mark on mathematics: ');
  readln(k.marks[1]);
  write('Mark on history: ');
  readln(k.marks[2]);
  write('Mark on biology: ');
  readln(k.marks[3]);
  write(f,k);
  write('Continue (Y/N) ');
  Readln(yn);
  writeln;
 Until (yn='n') or (yn='N');
 writeln;
 close(f);
end;

procedure vivod;
Var
 k:itogi;
 v,w:byte;
begin
 reset(f);
 for v:=1 to Nst do
 begin
  read(f,k);
  write(k.surname:20,'  ',k.group:10,'  ');
  for w:=1 to 3 do write(k.marks[w]:3);
  writeln;
 end;
 close(f);
 readln;
end;

procedure best;
Var
 k:itogi;
 v,w,num,max:byte;
begin
 reset(f);
 for v:=1 to Nst do
 begin
  read(f,k);
  max:=k.marks[1];
  num:=1;
  for w:=2 to 3 do
   if k.marks[w]>max then
    begin
     max:=k.marks[w];
     num:=w;
    end;
  writeln(k.surname:20,'  ',k.group:10,'  best - ',Name[num]);
 end;
 close(f);
 readln;
end;

BEGIN
 assign(f,'D:\Stud');
 Repeat
  clrscr;
  writeln('Choose:');
  writeln('1 - Input');
  writeln('2 - Output');
  writeln('3 - Best marks');
  writeln('0 - Quit');
  readln(x);
  case x of
   1: vvod;
   2: vivod;
   3: best;
  end;
 Until x=0;
END.

type
student=record
fam:string[30];
groop:string[40];
math,histor,biol:1..5;
end;
procedure vvod (var k:student; var f:text);
begin
Writeln('Vvedite familiy');
readln(k.fam);
writeln('Vvedite groopy');
readln(k.groop);
repeat
writeln('Vvedite ocenky po math, histor and biology');
readln(k.math,k.histor,k.biol);
until ((k.math in [2..5]) and (k.histor in [2..5]) and (k.biol in [2..5]));
writeln(f,k.fam);
writeln(f,k.groop);
writeln(f,k.math);
writeln(f,k.histor);
writeln(f,k.biol);
end;
procedure vivod(var k:student);
begin
Writeln(k.fam,' ',k.groop,' ',k.math,' ',k.histor,' ',k.biol);
end;
procedure best(var k:student);
begin
if ((k.math>k.histor) and (k.math>k.biol))
then Writeln('Best math ',k.math,' ballov')
else if ((k.histor>k.math) and (k.histor>k.biol))
then Writeln('Best histor ',k.histor,' ballov')
else if ((k.biol>k.histor) and (k.biol>k.math))
then Writeln('Best biology ',k.biol,' ballov')
else Writeln('Best net!!!');
end;
Var k:student; f:text; filename:string;
begin
Writeln('Vvedite ima faila');
readln(filename);
assign(f,filename+'.txt');
rewrite(f);
vvod(k,f);
vivod(k);
best(k);
close(f);
readln;
end.

assign(f,'D:\Stud');