Запись Студент - Определить список студентов заданного курса

program Student;
 
uses
  crt;
type
TStudent =record
 FSurname:string[15];
 FName:string[20];
 Patronymic:string[40];
 gender:char;
 vozrast:byte;
 nomer_kursa:byte;
 end;
 
var
  Studs: array[1..25] of TStudent;
  Zap: TStudent;
  f: file of TStudent;
  vibor: byte;
  fami: string[15];
   n, t: integer;
 
  {---------------------------------------------------------------------------------------------}
procedure vvod;
var
  i: integer;
begin
clrscr;
  Assign(f, 'student.dat');
  rewrite(f);
  repeat
  Write('Количество студентов от 1 до 25 n: ');
  readln(n);
  until n in [1..25];
  for i := 1 to n do
  begin
    writeln('Введите', ' ', i, ' ', 'студента ');
   with Zap do
   begin
      
write('|Введите фамилию студента................|- '); readln(Fsurname);
write('|Введите имя студента...........................|- '); readln(FName);
write('|Введите отчество студента.................|- '); readln(Patronymic);
repeat
write('|Введите пол студента(м/ж)................|- '); readln(gender);
until (gender='м')or(gender='ж');
repeat
write('|Введите возраст......................|- '); readln(vozrast);
until vozrast in [16..25];
repeat
write('|Введите № курса..................|- '); readln(nomer_kursa);
until nomer_kursa in [1..5];
writeln;
   
   write(f, Zap);
  end;
  end;
  close(f);
end;
{--------------------------------------------------------------------------------------------------------------------------------------------------------------------}
procedure chten;
var
  i: integer;
begin
  clrscr;
  assign(f, 'student.dat');
  reset(f);
  i := 1;
  while not (eof(f)) do 
  begin
    read(f, Studs[i]);
       writeln(i,Studs[i].FSurname:15,' ',Studs[i].FName:10,' ',Studs[i].Patronymic:15,' ',Studs[i].gender,' ','|',Studs[i].vozrast,' ',Studs[i].nomer_kursa,' ');
    i := i + 1;
    
  end;
  close(f);
  
  n := i - 1;
end;
{----------------------------------------------------------------------------------------------------------------------------------------------------------------------------}
procedure dobav;
var
  i: integer;
begin
clrscr;
  rewrite(f);
  
  for    i := 1 to n do
    write(f, Studs[i]); //Записываем в массив записей
  
  Writeln('Введите ', ' ', n + 1, ' ', 'студента');
  with Zap do
  begin
write('|Введите фамилию студента................|- '); readln(Fsurname);
write('|Введите имя студента...........................|- '); readln(FName);
write('|Введите отчество студента.................|- '); readln(Patronymic);
repeat
write('|Введите пол студента(м/ж)................|- '); readln(gender);
until (gender='м')or(gender='ж');
repeat
write('|Введите возраст......................|- '); readln(vozrast);
until vozrast in [16..25];
repeat
write('|Введите № курса..................|- '); readln(nomer_kursa);
until nomer_kursa in [1..5];
  writeln;
  write(f, Zap);
  end;
  close(f);
  
  
end;
{--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------}
 
procedure delete;
var
  i: integer;
begin
clrscr;
  i := 1;
  assign(f, 'student.dat');
  reset(f);
  
  
  while not eof(f) do
  begin
    read(f, Studs[i]);
    i := i + 1
  end;
 
  close(f);
  write('Выберите номер удаляемой записи которую вы хотите: ');
  readln(n);
  reset(f);
  seek(f, filesize(f) - 1);{ Ставим указатель перед последним компонентом }
  read(f, Studs[i]);
  seek(f, n - 1); { Ставим указатель перед удаляемым файлом }
 write(f, Studs[i]);{ Записываем конечный компонент вместо удаляемого }
                    { убираем последний элемент файла }
 seek(f, filesize(f) - 1);{ Ставим указатель перед последним компонентом }
 truncate(f);{ Отсекаем последний компонент }
  
 Writeln('Удаление прошло успешно!!!');                                
  
end;
{----------------------------------------------------------------------------------------------------------------------}
procedure poisk;
 
begin
clrscr;
  
          write('Введите фамилию ребенка: ');
          readln(fami);
          reset(f);
          t := 0;
          while not eof(f) do
          begin
            read(f, Zap);
            if Zap.FSurname = fami then
           begin
            t := 1;
           writeln('Найдент студент или студентка с такой фамилией!!!');
              Writeln('Выводим запись');
              writeln(Zap.FSurname:15,' ',Zap.FName:10,' ',Zap.Patronymic:25,' ',Zap.gender,' ',' ',Zap.vozrast,' ',Zap.nomer_kursa);
              end;
          end;
          if t = 0 then writeln('Такого ребенка нету!!!');
          close(f);
        end;
      
  {------------------------------------------------------------------------------------------------------------------------------------------------------------------------------} 
procedure vivod;
var i:integer;
kurs:byte;
begin
repeat 
Write('Введите курс: '); Readln(kurs);
until kurs in [1..5];
writeln('Cписок студентов по заданному курсу');
for i:=1 to n do begin
if (Studs[i].nomer_kursa=kurs) then 
writeln(Studs[i].FSurname:15,' ',Studs[i].FName:10,' ',Studs[i].Patronymic:15,' ',Studs[i].gender,' ','|',Studs[i].vozrast,' ',Studs[i].nomer_kursa,' ');
end;
end;
 
procedure vivod2;
var srednee:real;
summa:integer;
kurs:byte;
i:integer;
begin
ClrScr;
repeat 
Write('Введите курс: '); Readln(kurs);
until kurs in [1..5];
Summa:=0;
for i:=1 to n do begin
if (Studs[i].nomer_kursa=kurs) then
begin
summa:=summa+Studs[i].vozrast;
end;
end;
srednee:=summa/n;
writeln('Средний возраст студентов заданого курса:-------- ',srednee);
 
end;
 
procedure vivod3;
var kol:integer;
procent:real;
i:integer;
begin
for i:=1 to n do begin
if (Studs[i].gender='м') then
  begin
  case Studs[i].nomer_kursa of
  1: kol:=kol+1;
  2: kol:=kol+1;
  3: kol:=kol+1;
  4: kol:=kol+1;
  5: kol:=kol+1;
  end;
end;
end;
writeln('kol =',kol);
end;
 
begin
ClrScr;
repeat
 
  Writeln('Выбор действия');
  Writeln('1-Ввод новых  данных');
  Writeln('2-Чтение данных');
  Writeln('3-Добавление записей');
  Writeln('4-Удаление записи');
  Writeln('5-Поиск информации');
  Writeln('6-Самый больной ребенок');
  Writeln('7-Кто больше болеет - мальчики или девочки');
  writeln('8-Cписок детей, проживающих на заданной улице');
  writeln('9-Выход');
  readln(vibor);
    case vibor of
      1: vvod;
      2: chten;
      3: dobav;
      4: delete;
      5: poisk;
      6: vivod;
      7: vivod2;
      8: vivod3;
      9:begin
      writeln('Нажмите Enter для выхода');
      Readln;
      exit;
      end
      else 
        begin
        writeln('Нажмите Enter и повторите ваш ввод');
        Readln; end;
        end
        until (vibor=9);
    
    
end