Файл: Определить средний балл успеваемости по каждому студенту и по группе в целом.

Program files; 
Type
wed = record {Тип wed включает 3 поля: n, fio, bal}
n : byte ; fio : string[15] ;
bal : array [1..5] of byte; {Поле bal – массив из 5 оценок }
 
end;
 sred = record {желательно использовать вторую запись для вычисления среднего балла}
    
    end;
Var spisok : wed ; {Запись spicok типа wed}
sp : file of wed; {Файл записей типа wed}
 
 
  
procedure vvod; { процедура создания файла}
var i,j:byte;
begin
{ оператор assing находится в основной прграмме }
rewrite ( sp); {открытие файла для записи}
with spisok do
For i:=1 to 10 do begin
n:=i; 
writeln (' Введите фамилию - ', i ); readln (fio); 
writeln (' Введите 5 оценок (от 1 до 5 баллов) ', fio ); For j:= 1 to 5 do readln ( bal [j] );
write (sp , spisok); { запись в файл информации о студенте}
end;
close (sp); { закрытие файла для записи }
end;
procedure print; { процедура чтения и печати всего файла }
var j : byte;
begin
reset ( sp); {открытие файла для чтения}
writeln (' Список студентов: '); 
while not eof (sp) do 
with spisok do 
begin 
Read (sp, spisok); {чтение данных из файла}
write (n,' ',fio); {вывод записи на экран}
For j:= 1 to 5 do write (' ', bal [j] );
writeln ;
end;
readln;
close (sp) ; {закрытие файла}
end;
 
procedure tabl; {процедуры для вывода данных в таблицу}
var j: byte;
begin
reset (sp); {открытие файла для чтения}
  writeln('┌──────────────────────────────────┬─────────────────────────────┐     ');  
  writeln('│                                  │     Оценки по предметам     │    ');
  writeln('│           ФИО студента           ├─────┬─────┬─────┬─────┬─────┤ ');       
  writeln('│                                  │  1  │  2  │  3  │  4  │  5  │  ');
  writeln('├──────────────────────────────────┼─────┼─────┼─────┼─────┼─────┤');
 
while not eof (sp) do 
with spisok do 
begin 
Read (sp, spisok); {чтение данных из файла}
 
    
      write('│', spisok.fio, ' ':20 - length(spisok.fio), '              ');             
      for j := 1 to 5 do write('│ ', spisok.bal[j]:3, ' ');
      writeln('│');
    
    end;
    close(sp); {закрытие файла}
    
  writeln('└──────────────────────────────────┴─────┴─────┴─────┴─────┴─────┘');
  writeln;
  writeln();
  end;
  
  
begin {начало основной программы}
assign (sp,'Vedom.txt'); {связать файловую перем-ю sp с файлом Vedom.dat}
vvod; print; {процедуры создания и чтения файла} 
tabl; {процедура создания таблицы}
 
 
readln;
end.

const
  fName = 'Vedom.txt';
  
type
  wed = record
    fio : string[15];
    bal : array [1..5] of byte;
    
    function среднийБалл := (bal[1] + bal[2] + bal[3] + bal[4] + bal[5]) / 5;
  end;
  
var sp : file of wed;
 
procedure vvod;
begin
  var s : wed;
  if System.IO.File.Exists(fName) then
    begin
      Reset(sp, fName);
      Seek(sp, FileSize(sp));
    end
  else
    Rewrite(sp, fName);
  (s.fio, s.bal[1], s.bal[2], s.bal[3], s.bal[4], s.bal[5]) :=
  (ReadLnString('ФИО студента:'), ReadInteger('5 оценок:'), ReadInteger,
  ReadInteger, ReadInteger, ReadLnInteger);
  Write(sp, s);
  Close(sp);
end;
 
procedure print;
begin
  Reset(sp, fName);
  WriteLn('Список студентов:');
  var s : wed;
  while Not EOF(sp) do
    begin 
      Read(sp, s);
      WriteLnFormat('| {0,-15} | {1,2} | {2,2} | {3,2} | {4,2} | {5,2} |', s.fio,
      s.bal[1], s.bal[2], s.bal[3], s.bal[4], s.bal[5]);
    end;
  close(sp);
  Write('Нажмите Enter для продолжения.'); ReadLn;
end;
 
procedure tabl;
begin
  Reset(sp, fName);
  writeln('+-----------------+------------------------+');  
  writeln('|                 |  Оценки по предметам   |');
  writeln('|  ФИО студента   +----+----+----+----+----+');
  writeln('|                 |  1 |  2 |  3 |  4 |  5 |');
  writeln('+-----------------+----+----+----+----+----+');
  var s : wed;
  while Not EOF(sp) do
    begin
      Read(sp, s);
      WriteLnFormat('| {0,-15} | {1,2} | {2,2} | {3,2} | {4,2} | {5,2} |', s.fio,
      s.bal[1], s.bal[2], s.bal[3], s.bal[4], s.bal[5]);
    end;
  close(sp); {закрытие файла}
  WriteLn('+-----------------+----+----+----+----+----+');
  WriteLn;
  Write('Нажмите Enter для продолжения.'); ReadLn;
end;
 
procedure СреднийБалл;
begin
  Reset(sp, fName);
  writeln('+-----------------+------------------------+-----+'); 
  writeln('|                 |  Оценки по предметам   | ср. |');
  writeln('|  ФИО студента   +----+----+----+----+----+ балл|');
  writeln('|                 |  1 |  2 |  3 |  4 |  5 |     |');
  writeln('+-----------------+----+----+----+----+----+-----+');
  var s : wed;
  var (count, sum) := (0, 0.0);
  while Not EOF(sp) do
    begin
      Read(sp, s);
      WriteLnFormat('| {0,-15} | {1,2} | {2,2} | {3,2} | {4,2} | {5,2} |{6,4:0.0} |',
      s.fio, s.bal[1], s.bal[2], s.bal[3], s.bal[4], s.bal[5], s.среднийБалл);
      count += 1; sum += s.среднийБалл;
    end;
  close(sp); {закрытие файла}
  writeln('+-----------------+----+----+----+----+----+-----+');
  if count > 0 then WriteLn('Средний балл по группе ', sum/count:0:1);
  WriteLn;
  Write('Нажмите Enter для продолжения.'); ReadLn;
end;
  
begin
  var v : String;
  var theEnd := False;
  repeat
    WriteLn(NewLine*5, '~'*20);
    WriteLn('1 - Добавить студента');
    WriteLn('2 - Список студентов');
    WriteLn('3 - Таблица студентов');
    WriteLn('4 - Средний балл студентов');
    WriteLn('0 - Выход из программы');
    v := ReadLnString('Ваш выбор:');
    if v.Length > 0 then
    case v[1] of
      '1' : vvod;
      '2' : print;
      '3' : tabl;
      '4' : СреднийБалл;
      '0' : theEnd := True;
    end;
  until theEnd;
end.