const
    n=10;
type
    session = array[1..10,1..5] of record
                                  subject: string[10];
                                  mark: 1..5;
                                  end;
    student=record
    fio:string[40];
    curs:1..5;
    group:1..9;
    formaobuch:string[1];
    end;
  TFile= file of student ;
  tmas=array [1..n] of student;
//------------------------------------------------------
procedure vvoddannuh(var a:tmas); //ввод
var i,s:Integer;
begin
  for i:=1 to n do
  begin
    Writeln('введите фио');
    Readln(a[i].fio);
    Writeln('введите курс');
    Readln(a[i].curs);
    Writeln('введите группу');
    Readln(a[i].group);
    Writeln('введите форму обучения');
    Readln(a[i].formaobuch);
    writeln;
  end
end;
//--------------------------------------------------------
Procedure vuvoddannuh(a:tmas);
var i:Integer;
begin
   writeln ('--------------------------------------------------------------------------');
   writeln ('    фио   / курс  / группа/  форма обучения /     ');
   writeln ('--------------------------------------------------------------------------');
   for i:=1 to n do
   writeln(a[i].fio,' ',a[i].curs,' ',a[i].group,' ',a[i].formaobuch);
end;
//-------------------------------------------------------------------