Что делает данная функция

Var size, CurPos: Longint;
MA:integer;
Begin
     Clrscr;
{$I-}
     Reset(F);
{$I+}
If (IOResult = 0) then
Begin
     Reset(F);
Size:=FileSize(f);
CurPos:=-1;
     Read(F,inf);
Writeln;
Writeln(‘NAME:’,inf.name);
Writeln(‘SPECIAlNOST: ‘,inf.specialnost);
Writeln(‘OTCHISLEN ? :’,inf.otchislen);
Writeln(‘KYRS:’,inf.kyrs);
Writeln;
CurPos:=1;
Repeat
Cc:=Readkey;
IF Ord(Cc)=0 then
Begin
Cc:=Readkey;
      End;
IF Ord(Cc)=80 then
Begin
ClrScr;
CurPos:=CurPos+1;
If CurPos >= size then CurPos:=size-1;
[SIZE="7"][COLOR="Red"]Seek(F, CurPos);[/COLOR][/SIZE]
Read(F,inf);
Writeln;
Writeln(‘NAME:’,inf.name);
Writeln(‘SPECIAlNOST: ‘,inf.specialnost);
Writeln(‘OTCHISLEN ? :’,inf.otchislen);
Writeln(‘KYRS:’,inf.kyrs);
Writeln;
     End;
End;
IF Ord(Cc)=72 then
Begin
     ClrScr;
CurPos:=CurPos-1;
If CurPos < 0 then CurPos:=0;
     Seek(F, CurPos);
     Read(F,inf);
Writeln;
Writeln(‘NAME:’,inf.name);
Writeln(‘SPECIAlNOST: ‘,inf.specialnost);
Writeln(‘OTCHISLEN ? :’,inf.otchislen);
Writeln(‘KYRS:’,inf.kyrs);
Writeln(FilePos(f));
End;
Until Ord(Cc)=27
End
Else
       Writeln(‘file not found’);
Readln;
      End;
Begin
Assign (F,’baza_students.pas’);
A:=’PROSMOTR’;
B:=’DOBAVLENIE’;
C:=’POISK’;
D:=’EXIT’;
Repeat
Writeln(A,’ =1’);
Writeln(B,’ =2’);
Writeln(C,’ =3’);
Writeln(D,’=9’);
Readln(v);
Case v of
1:view;
2:add;
3:poisk;
End;
ClrScr;
Until v=9;
End.