Вывести на экран сведения о студентах, имеющих средний балл 5

const
  n = 100;
  no = '№';
  name     = 'Имя ';
  surname  = 'Фамилия ';
  group    = 'Группа ';
  ball     = 'Средний балл ';
  no1      = '№';
  n1       = 'Имя';
  sn1      = 'Фамилия';
  g1       = 'Группа';
  b1       = 'Средний балл';
 
 
type
  zap = record
    n:   string[10];
    sn:  string[15];
    g:   string[10];
    b:   byte;
  
  end;
  base =  zap;
 
var
  f: file of zap; {файл с БД}
  filePath: string; {путь к файлу с БД}
  toDelFile: boolean;{вспомогательная переменная}
 
{1}{Процедура формирования одной записи}
procedure vvodOdnogo(var info: base; var f: file of zap);
var
  i: integer;
begin
  with info do
  begin
    write(name:10);readln(n);
    write(surname:10);readln(sn);
    write(group:10);readln(g);
    write(ball:3);readln(b);
    write(f, info);
  end;
  writeln(' Ввод произведён удачно. Для продолжения нажмите Enter.');
  readln;
end;
{*1*}
 
{2}{Процедура ввода базы}
procedure vvodBase(var f: file of zap);
var
  i: byte;
  caseKey: char;
  info: base;
begin
  writeLn;
  writeLn('Вводите элементы базы данных');
  i := fileSize(f);
  repeat
    inc(i);
    writeLn('Вводите ', i, '-й элемент');
    vvodOdnogo(info, f);
    writeLn('Для прекращения ввода нажмите "0"');
    readLn(caseKey);
  until caseKey = '0';
end;
{*2*}
 
{3}{Процедура вывода одной записи на экран}
procedure vivodOdnogo(const info: base; const i: integer);
begin
  with info do
  begin
    writeln('|-------------------------------------------------------------------|');
    writeln('|', no1:3, '|', n1:15, '|', sn1:15, '|', g1:15, '|', b1:15, '|');
    writeln('|', i:3, '|', info.n:15, '|', info.sn:15, '|', info.g:15, '|', info.b:15, '|');
    writeln('|-------------------------------------------------------------------|');
  end;
  writeln;
end;
{*3*}
 
{4}{Процедура вывода БД на экран}
procedure vivodBase(var f: file of zap);
var
  info: base;
  i: integer;
begin
  reset(f);
  while not EOF(f) do
  begin
    i := filePos(f) + 1;
    read(f, info);
    vivodOdnogo(info, i);
  end;
end;
{*4*}
 
{5}{Процедура удаления одной записи с номером i}
procedure delitZap(var f: file of zap; const i: integer);
var
  info: base;
begin
  seek(f, i);
  while not EOF(f) do
  begin
    read(f, info);
    seek(f, filepos(f) - 2);
    write(f, info);
    seek(f, filepos(f) + 1);
  end;
  seek(f, fileSize(f) - 1);
  truncate(f);
  seek(f, i - 1);
end;
{*5*}
 
{6}{Процедура корректировки одной записи}
procedure changeZap(var f: file of zap; const i: integer);
var
  info: base;
begin
  writeLn('Давайте изменим эту запись полностью:');
  seek(f, i - 1); 
  vvodOdnogo(info, f);
  seek(f, i - 1);
end;
{*6*}
 
{7}{Процедура удаления и корректировки записей}
procedure dellchangeBase(f: file of zap);
var
  info: base;
  i: integer;
  caseKey: char;
begin
  repeat
    vivodBase(f);
    writeLn('Выберите номер записи, для редактирования');
    writeLn('"0" - возврат в предыдущее меню');
    readln(i);
    while (i > filesize(f)) or (i < 0) do
    begin
      writeLn('нет такого номера!');
      writeLn('Выберите номер записи, для редактирования');
      writeLn('"0" - возврат в предыдущее меню');
      readln(i);
    end;
    
    if i <> 0 then
    begin
      seek(f, i - 1);
      read(f, info);
      vivodOdnogo(info, i);
      
      writeLn('Для удаления записи введите "9"');
      writeLn('Для корректировки введите "1"');
      writeLn('Для возврата в предыдущее меню введите "0"');
      writeLn('Для продолжения редактирования БД введите иной символ');
      writeLn('Ваш выбор:');
      readLn(caseKey);
      case caseKey of
        '9': delitZap(f, i);
        '1': changeZap(f, i);
      end;
    end
    else
      caseKey := '0';
  until caseKey = '0';
end;
{*7*}
 
{8}{Добавление записи к БД}
procedure dobavilZap(var f: file of zap);
var
  info: base;
  caseKey: char;
begin
  seek(f, filesize(f));
  repeat
    vvodOdnogo(info, f);
    writeLn('для добавления ещё одной записи введите "1"');
    readLn(caseKey);
  until caseKey <> '1';
end;
{*8*}
 
 
{Средний балл 5}
procedure srednBall(var f: file of zap);
var
  info: base;
  i: integer;
begin
  reset(f);
  while not EOF(f) do
  begin
    i := filePos(f) + 1;
    read(f, info);
    if info.b = 5 then
      vivodOdnogo(info, i);
  end
end;
 
 
{9}{процедура выводящая главное меню программы}
function mainMenu: char;
var
  punktOFmenu: char;
begin
  writeLn;
  writeLn('Выберите нужное действие:');
  writeLn('1 - Вывод БД');
  writeLn('2 - Корректировка и удаление записей');
  writeLn('3 - Добавление новых элементов в БД');
  writeLn('4 - Средний балл "5"');
  writeLn('5 - Выход');
  write('Ваш выбор:');
  readLn(punktOFmenu);
  mainMenu := punktOFmenu;
end;
{*9*}
 
{10}{Процедура вывода запроса пункта главного меню}
procedure menuCase(var f: file of zap);
var
  punktOFmenu: char;
begin
  repeat
    punktOFmenu := mainMenu;
    case punktOFmenu of
      '1': vivodBase(f);
      '2': dellchangeBase(f);
      '3': dobavilZap(f);
      '4': srednBall(f);
      '5':  ;
    else
      writeLn( 'нет такого пункта меню, введите ещё раз');
    end;{case}
  until punktOFmenu = '5';
end;
{*10*}
 
{11}{процедура открытия нового файла}
function OpenNewFile(var filePath: string): boolean;
var
  flag: boolean;
  KeyCase: char;
begin
  repeat
    flag := TRUE;
    writeLn('Введите имя файла с которым будем работать');
    readLn(filePath);
    if FileExists(filePath) then
    begin
      writeLn('Файл с таким именем ("', filePath, '") уже существует,');
      writeLn('Выберите действие:');
      writeLn('0 - если Вы его хотите перезаписать');
      writeLn('1 - если Вы его хотите открыть');
      writeLn('другая клавиша - ввод иного имени');
      flag := TRUE;
      assign(f, filePath);
      readLn(KeyCase);
      case KeyCase of
        '1': OpenNewFile := FALSE;
        '0': OpenNewFile := TRUE;
      else
        flag := FALSE;
      end; {case}
    end
    else
      OpenNewFile := TRUE;
  until flag;
end;
{*11*}
 
{12}{главная программа}
begin
  
  toDelFile := OpenNewFile(filePath);
  assign(f, filePath);
  if toDelFile then
  begin
    rewrite(f);
    vvodBase(f);
  end
  else
    reset(f);
  menuCase(f);
  close(f);
end.