файлы (Pascal)

[kitsun]

Прошу помочь с написанием программы, не могу заставить программу выводить все элементы записей, выводит только одну, помогите исправить.

program Lab8;

{$APPTYPE CONSOLE}

uses
  sysutils,
  ucrt;

const n=3;
Type pass = Record
fam: String[24];
ves: integer;
kol: integer;
End;
Var y: array[1..n] of pass;
min,buf:pass;
f1,f2: file of pass;
i,j,max:integer;

Begin
for i:=1 to n do
with y[i] do
begin
Write('Фамилия пассажира: '); readln(fam);
write('Вес багажа пассажира: '); readln(ves);
write('Количество вещей: '); readln(kol);
End;

assign(f1,'1.dat'); rewrite(f1);
assign(f2,'2.dat'); rewrite(f2);

for i:=1 to n do
write(f1,y[i]);
seek(f1,0);
min.fam:=y[i].fam;
min.ves:=y[i].ves;
min.kol:=y[i].kol;
while not Eof(f1) do
Begin
Read(f1,buf);
max:=y[1].ves;
for i:=n downto 1 do
for j:=1 to i do
if (40>=y[j+1].ves) and ((y[j].kol>1))  then
begin
buf:=y[j];
 y[j]:=y[j+1];
 y[j+1]:=buf;
end;
End;
For i:=1 to n do
with y[i] do
begin
Write(f2,min);
Writeln('Фамилия - ',min.fam);
Writeln('Вес - ',min.ves);
Writeln('Количество вещей - ',min.kol);
close(f1);
close(f2);
readln;
end;
end.

[ZX Spectrum-128]

Вы в цикл, в котором должно выводить записи, закрытие файлов засунули.