Разработать программу обработки данных о студенческой группе

program pr;
Const c = 10;
re = 7;
type
sotr = record
nomer:integer;
fam:string;
end;
var
f1:text;
mas:array[0..re] of integer;
s:array[0..c] of sotr;
del:array[0..c] of real;
i,n,j,o,sred,NUM:integer;
st,k,Fam:string;
str:array[0..re] of string;
begin
repeat
writeln('Vvedite chislo ot 1 do 4:');
writeln('1: Vvod informatii stydenta');
writeln('2: Prosomtr informatii');
writeln('3: Sreednee znach po ocenkam');
writeln('4: Poisk stydenta po ocenkam');
writeln('5: Exit');
readln (NUM);
case NUM of
1: begin
assign(f1, 'Vvod.txt');
Writeln('Vvedite kol-vo stydentov:');
Readln(n);
rewrite(f1);
for i:=1 to n do begin
st:='';
sred:=0;
writeln('Vvedite familiyu ',i,' stydenta');
Readln(s[i].fam);
s[i].nomer:=i;
writeln('Vvedite 7 ocenok stydenta:');
for j:=1 to re do begin
Readln(o);
mas[j]:=o;
st:= st + o;
sred:=sred+o;
if (j=7) then
del[i]:=sred/7;
end;
str[i]:=st;
write(f1,s[i],'Ocenki: ',str[i],' Srednee zhach: ',del[i]:0:2,'|');
end;
close(f1);
end;
2: begin for i:=1 to n do
writeln(s[i]);
end;
3:begin for i:=1 to n do
writeln(s[i],' Srednee zhach: ',del[i]:0:2,'|');
end;
4:begin
Writeln('Vvedite familiyu stydenta');
Readln(Fam);
for i:=1 to n do
if (s[i].fam=Fam) then
writeln(s[i],'Ocenki: ',str[i])
else writeln('Takovo stydenta net');
end;
5:exit;
end;
Writeln('Repeat? y/n');
Readln(k);
until k='n';
end.

o:=o+inttostr(st);