Вывести в текстовый файл пассажиров с минимальным и максимальным весом а также общий вес багажа

uses crt;
Cоnst bmax=10; fmax=20; nmax=10;
Type spis=record
fam:string[fmax];
bag1:string[bmax];
ves1:real;
bag2:string[bmax];
ves2:real;
bag3:string[bmax];
ves3:real;
end;
type fspis=file of spis;
type matrix=array[1..nmax] of real;
type mass=array[1..nmax] of string;
 
Procedure Menu(var bal:integer);
begin
writeln('1-Добавление записи');
writeln('2-Просмотр исходного файла');
writeln('3-Создание файла с данными о пассажирах, у которых вес багажа превышает норму');
writeln('4-Создание файла с минимальным и максимальным весом');
writeln('5-Просмотр текстового файла');
writeln('6-Выход');
readln(bal);
end;
 
procedure DobavZapis(var f:fspis; pass:spis);
begin
 
writeln('введите фамилию пассажира');
readln(pass.fam);
writeln('введите багаж 1');
readln(pass.bag1);
writeln('введите вес багажа 1');
readln(pass.ves1);
writeln('введите багаж 2');
readln(pass.bag2);
writeln('введите вес багажа  2');
readln(pass.ves2);
writeln('введите багаж 3');
readln(pass.bag3);
writeln('введите вес багажа  3');
readln(pass.ves3);
 
assign(f,'input.txt');
reset(f);
seek(f, filesize(f));
write(f,pass);
close(f);
end ;
 
procedure outp1(pass:spis);
var
l:string[15];
f1:fspis;
i:integer;
begin
writeln('Введите название файла ');
readln(l);
assign(f1,l);
reset(f1);
while not eof(f1) do
begin
read(f1,pass);
writeln(pass.fam,' ',pass.bag1,' ',pass.ves1,' ',pass.bag2,' ',pass.ves2,' ',pass.bag3,' ',pass.ves3);
end;
close(f1);
end;
 
procedure outp2(var f,f2:fspis;var pass:spis);
var ves:real;
begin
writeln('Введите максимальный вес');
readln(ves);
assign(f,'input.txt');
assign(f2,'output1.txt');
reset(f);
rewrite(f2);
while not eof(f) do
begin
read(f,pass);
if ((pass.ves1+pass.ves2+pass.ves3)>ves) then
write(f2,pass);
end;
close(f);
close(f2);
end;
 
procedure outp3(var f:fspis; var f3:text; var pass:spis);
var minfam,maxfam:string[20]; i,j:integer; minves,maxves:real; faml:mass; pas:matrix;
begin
assign(f,'input.txt');
assign(f3,'output2.txt');
reset(f);
rewrite(f3);
i:=1;
while not eof(f) do
begin
read(f,pass);
pas:=pass.ves1+pass.ves2+pass.ves3;
faml:=pass.fam;
i:=i+1;
end;
minves:=pas[1];maxves:=0;
for j:=1 to i-1 do begin
if pas[j]>maxves then
begin
maxves:=pas[j];
maxfam:=faml[j];
end;
if pas[j]<minves>6 do
begin
menu(bal);
case bal of
1 :dobavzapis(f,pass);
2 :outp1(pass);
3 :begin
outp2(f,f2,pass);
outp1(pass);
end;
4 :outp3(f,f3,pass);
5 :outp4(f3);
end;
end;
end.