program Project17;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const nn=20; mm=20; // nn-макс.количество студентов в массиве, путь будет 20

type stud=record
  surname:string[mm];
  points:array[1..6] of integer;  // массив дней
  summ:integer;//в переменной хранится общее количество занятий студента в неделю
end;

var a:array[1..nn] of stud;
    i,j,n:integer;      //n- кол-во студентов, которое мы вводим
    textfile:text;//текстовый файл. сюда пишем фамилии, к кого свободный день
    f:file of stud;
    st:stud;
    filename:string[12];

procedure input(number:integer);
begin
      writeln;
      write('Vvedite familiyo ',number, 'studenta:');
      readln(a[number].surname);
      for j := 1 to 6 do
      begin
        write('Vvedite kolichestvo zanaytiy v ',j,' den:');
        readln(a[number].points[j]);
        a[number].summ:=a[number].summ+a[number].points[j];
      end;
      write(f,st);
end;


procedure search_min; //процедура поиска студента с мин. кол-вом занятий
var min,i:integer;
    k:boolean;
    name:string[20];
begin
  min:=a[1].summ;
  for i := 1 to n do
  begin
    if a[i].summ < min then
      begin
        min:=a[i].summ;
        writeln(a[i].surname,' imeet miniumim nagruzku');
      end;
  end;
end;

procedure find_free(number:integer);  // процедура поиска студента со свободным днем
var j:integer;
begin
  for j := 1 to 6 do
    begin
      if a[number].points[j]=0 then
        begin
          writeln('Free sudent: ',a[number].surname);
          write(textfile,a[number].surname,#13#10);   //#13#10 - чтобы каждая фамилия с новой строчки
        end;
    end;

end;

begin
  writeln('Enter filename:');
  readln(filename);
  assign(f,filename+'.dat');
  rewrite(f);
  writeln('File created!');
  writeln;
  writeln('Enter students count:');  //ну тут всё и ежу понятно
  readln(n);                         //
  for i:=1 to n do input(i);
  search_min;
  assignfile(textfile, 'free.txt');// связываем файловую переменую и текстовый файл
  rewrite(textfile);
  for i:=1 to n do find_free(i);
  closefile(f);
  closefile(textfile);
  readln;
end.