Не выводит данные из файла

Program LR6;
      type z = record
       faminc:string[25];
       pol:string[5];
       DDMMGG:string[6];
       sum:integer;
      end;
var
   f:file of z;
   x,y,r:z; max,min,i,l:integer;
   m:real;
begin
assign(f, 'file.dat');
rewrite(f);
writeln('Сколько значений вы хотите ввести?');
readln(l);
for i:=1 to l do begin
 writeln('Запись ', i);
 writeln('Введите фамилию и инициалы');
 readln(r.faminc);
 writeln('Введите пол(муж/жен)');
 readln(r.pol);
 writeln('Введите дату рождения в формате ДД.ММ.ГГ');
 readln(r.DDMMGG);
 writeln('Введите сумму вступительных баллов');
 readln(r.sum);
 write(f,r);
end;
close(f);
reset(f);
writeln('|-------------------------|-----|---------------|---------------------|');
writeln('|          Фамилия        | Пол | Дата рождения | Сумма вступительных |');
writeln('|        и инициалы       |     |               |      баллов         |');
writeln('|-------------------------|-----|---------------|---------------------|');
while not eof(f) do begin
 read(f,r);
 writeln('|', r.faminc:25, '|', r.pol:5, '|', r.DDMMGG:15, '|', r.sum:21, '|');
end;
writeln('|-------------------------|-----|---------------|---------------------|');
///1 задание
writeln('Определение минимальной, средней и максимальной суммы вступительных баллов');
max:=-1000;
min:=1000;
reset(f);
while not eof(f) do begin
 read(f,r);
  if r.sum>max then max:=r.sum;
end;
write(f,x);
while not eof(f) do begin
 read(f,r);
  if r.sum<min then min:=r.sum;
end;
write(f,x);
while not eof(f) do begin
 m:=(max+min)/2;
 write(f,x);
end;
write(f,x);
close(f);
reset(f);
read(f,x);
writeln('|-------------|--------------|---------|');
writeln('| минимальная | максимальная | средняя |');
writeln('|    сумма    |    сумма     |  сумма  |');
writeln('|-------------|--------------|---------|');
writeln('|', min:13, '|', max:14, '|', m:9:0, '|');
writeln('|-------------|--------------|---------|');
close(f);
end.

Seek(f,0);

Reset(f);