Дан массив студентов из полей записи: фамилия, год рождения, оценки по 3 экзаменам

type baza=record
surname: string[10];
name: string[10];
zach: string[50];
ozenka: integer;
 
home: string[50];
end;
 
var
 
f:file of baza; friends: array [1..100] of baza;
a:array[1..100] of string;
I,j,k,c,n,m,u,nomer: integer; L,s:real;
q,w:char;
begin
assign(F,'baza.dat');
rewrite(f);
q:='з';w:='н';
writeln('Введите количество людей');
readln(n);
writeln('введите номер группы');
readln(nomer);
for I:=1 to n do
begin
 
writeln ('введите фамилию ',' ',i,'-го студент');
readln (friends[i].surname);
 
for m:=1 to 5 do
begin
writeln ('Получил ли студент: ',m,'-зачет если да нажмите <з> если нет, то <н>');
readln( friends[i].zach);
while (friends[i].zach<>q) and (friends[i].zach<>w) do
begin
writeln('введите <з> или<н>'); readln( friends[i].zach);
end; end;
for m:=1 to 5 do
begin
writeln ('Введите оценки:',' ',m,'-экзамен');
readln(friends[i].ozenka);
 
u:=u+friends[i].ozenka ;
 
end;
write(F,friends[i]); end;
 
 
writeln('---------------');
 
close(f);
writeln;
writeln;
 
writeln('Файл успешно создан');
writeln;
reset(F);
 
while not Eof(F) do
 
for i:=1 to n do
read(f,friends[i]);
 
 
S:=0;
L:=0;
for i:=1 to n do
S:=U/5;
writeln('Средний балл студента ',friends[i].surname,' ',S);
for i:=1 to n do
if (nomer=nomer) then
L:=(U)/nomer;
writeln('Средний группы ',friends[i].name,': ',L);
for i:=1 to n do
if ((friends[i].ozenka)<52) or ((friends[i].zach)=w) then Writeln('Фамилия студета не сдавшего экзамен или зачет:',' ',friends[i].surname);
writeln;
 
Close(F);
end.