прикладная математика

program Sergey;
uses crt;
type str_f=record
gr: string[6];
FIO: string[30];
zach: string[6];
pred1: string[15];
oz1: byte;
pred2: string[15];
oz2: byte;
sr_ball: real;
End;
Var z: str_f;
f: file of str_f;
Sr_ball: real;
i: byte;
Key: char;
Sum: real;
gr1: string;
K: byte;
M: byte;
Procedure Dop;
Begin
Clrscr;
Assign (f,'a: \file.dat');
Reset (f); seek (f, filesize (f)-1);
Repeat
Writeln ('Ввести данные');
With z do
Begin
Write ('Группа -'); readln (Gr);
Write ('Ф.И.О. -'); readln (FIO);
Write ('№ зач. -'); readln (Zach);
Write ('Предмет 1 -'); readln (pred1);
Write ('Оценка 1 -'); readln (oz1);
Write ('Предмет 2 -'); readln (pred2);
Write ('оценка 2 -'); readln (oz2);
Sr_ball :=( oz1+oz2)/2;
Writeln ('Sr_ball-', sr_ball:4:2);
End;
Write (f, z);
Writeln ('Введите следующее значение (Если нет, то <esc>)-');
Until readkey=#27;
Close (f);
End;
Procedure Poisk;
Begin
Write ('Введите № группы - ');
Readln (gr1);
{For i:= 0 to filesize(f)-1 do begin
Seek (f, I);
Read (f, z);
End ;}
k:=0;
Writeln (' - ',gr1);
Writeln ('______________________________________________________');
Writeln ('| № | № зачетки | Ф.И.О. | Средний балл|');
Writeln ('______________________________________________________');
Reset (f);
For i:=1 to filesize(f) do
Begin
Read (f, z);
If (z.gr=gr1) then
Begin
K:=k+1;
writeln('|',k:4,'|',z.Nzach:11,'|',z.FIO:14,'|',z.sr_ball:14:2,'|;
Writeln ('______________________________________________________');
Reset (f);

Sum:=sum+z.sr_ball;
End;
End;
Sum:=sum/k;
Writeln ('', sum:3:2);
Close (f);
Readln;
End;
Begin
Repeat
Writeln ('1- создание’);
Writeln ('2- дополнение');
Writeln ('3- поиск');
Writeln ('4- выход’);
Readln (m);
Case m of
3: поиск;
2: доп.;
1: begin rewrite (f); dop; end;
End;
Until m=4;
End.