Написать программу для обработки информации про студентов

program stud;
uses crt;
Type
 student=record
  FIO:string[60];
  sex:byte;
  group:string[10];
  math:byte;
  phys:byte;
  prog:byte;
  pasport:string[8]
 end;
 
var
students:array[1..10] of student;
f:file of student;
v:string;
countS,errc:integer;
v2:byte;
 
 
function readS:boolean;
begin
 readS:=true;
 {$I-}
  reset(f);
 {$i+}
 if ioresult=0 then
  begin
   countS:=0;
   while not eof(f) do
    begin
     inc(countS);
     Read (f, students[countS]);
    end;
   close (f) ;
  end
 else readS:=false;
end;
 
 
procedure addS;
begin
clrscr;
 inc(countS);
 Writeln('Dobavlenie studenta: ',countS);
  with students[countS] do
   begin
    Writeln('Vvedite FIO: ');
    readln(FIO);
    Writeln('Vvedite pol(0-jen. 1-muj.): ');
    readln(sex);
    Writeln('Vvedite passportnie dannie: ');
    readln(pasport);
    Writeln('Vvedite gruppu: ');
    readln(group);
    Writeln('Vvedite ocenku po Matematike: ');
    readln(math);
    Writeln('Vvedite ocenku po Fizike: ');
    readln(phys);
    Writeln('Vvedite ocenku po Programmirovaniyu: ');
    readln(prog);
   end;
end;
 
procedure viewStudent(number:integer);
var
j:integer;
sexS:string;
begin
    with students[number] do
    begin
     if sex=0 then sexS:='Jen.' else sexS:='Muj.';
     writeln('Student N ',number);
     writeln(FIO+'('+sexS+')');
     writeln('Passportnie dannie:',pasport);
     writeln('Gruppa:',group);
     writeln('Ocenki:');
     writeln('Matematika: ',math,' Fizika: ',phys,' Programmirovanie: ',prog);
    end;
    for j:=1 to 80 do write('-');
end;
 
procedure viewList;
var
i:integer;
begin
 clrscr;
 writeln('spisok studentov:');
 writeln;
 for i:=1 to countS do
   viewStudent(i);
  readln;
end;
 
procedure saveS;
var
i:integer;
begin
 
 rewrite(f);
 for i:=1 to countS do write(f,students[i]);
 close(f);
 writeln('Fail sohranen.');
 readln;
end;
 
procedure viewX;
var
a:real;
i:integer;
begin
  clrscr;
  a:=0;
 for i:=1 to countS do
  a:=a+students[i].math;
  a:=a/countS;
 writeln('Srednii bal po matematike:',a:1:1);
 writeln;
 writeln('Spisok studentov, u kotorih ball po Programmirovaniyu nuje srednego balla po Matematike: ');
for i:=1 to countS do
 if (students[i].prog<a) and (students[i].sex=1) then viewStudent(i);
readln;
end;
 
begin
 countS:=0;
 assign(f,'StudentsList');
 if readS=false then writeln('Oshibka 4teniya faila.Vozmojno ego ne sush4estvuet');
 repeat
  clrscr;
  writeln('Vvedite zna4enie dlya vibora punkta v menu:');
  writeln('1 Dobavit studenta.');
  writeln('2 Vivesti spisok vseh studentov.',countS);
  writeln('3 Vivod uslovija zada4i');
  writeln('4 Sohranit izmenenija v vail');
  writeln('0 dlya vihoda');
  readln(v);
  val(v,v2,errc);
  if errc=0 then
   begin
    case v2 of
     1:addS;
     2:if countS>0 then viewList;
     3:if countS>0 then viewX;
     4:if countS>0 then saveS ;
   end;
  end;
 until v='0';
end.

Writeln('Vvedite passportnie dannie: ');
readln(pasport);

writeln('Passportnie dannie:',pasport);