Создание файла (программа, с выполнением доп.функций)

uses crt;
type baza=record
surname: string[10];
name: string[10];
ocenka: integer;
zachet: char;
 
end;
 
var
 
f:file of baza; friends: array [1..100] of baza;
 
I,k, j, c, n: integer;
S, l:real;
 
 
begin
 
assign(F,'D:\baza.dat');
rewrite(f);
 
 
writeln('Введите количество людей');
readln(n);
for I:=1 to n do
begin
 
writeln ('введите фамилию человека');
readln (friends[i].surname);
writeln ('введите группу человека');
readln (friends[i].name);
write(F,friends[i]);
end;
for j:=1 to 5 do begin
 
writeln ('Введите оценку за экзамен человека');
readln( friends[j].ocenka);
writeln ('Введите зачет или незачет(з или н) человека');
readln(friends[j].zachet);
write(F,friends[j]);
writeln('---------------');
end;
close(f);
writeln;
writeln;
 
writeln('Файл успешно создан');
writeln;
reset(F);
 
while not Eof(F) do begin
 
 
for I:=1 to n do begin
read(f,friends[i]);
 
read(f,friends[j]); end;
 
 
 
for I:=1 to n do
for j:=1 to n do
 
if (( friends[j].ocenka)<26) or ((friends[j].zachet)='н') then Writeln('Фамилия и Имя не сдавшего экзамен или зачет,человека:',' ',friends[i].surname,' ',friends[i].name); end;
 
 
writeln;
{
k:=0;
c:=0;
 
for i:=1 to n do
 
if ((friends[i].ocenka)<26) or((friends[i].zachet)='н')then
 
begin inc(c);inc(k);
writeln('Количество не сдавших экзамен:', k) ;
writeln('Количество не сдавших зачет:', c);
end; }
Close(F);
 
end.