Типизированные файлы Delphi

[kitsun]

Добрый вечер, прошу помочь в написании программы.
К данному коду нужно добавить следующее:
- данные о багаже должны быть считаны из типизированного файла1,
- результаты работы программы записаны в файл2.

const
n=3;
type
pass=record
fam:string;
ves:integer;
kol:integer;
end;
var
g:array [1..n] of pass;
buf:pass;
i,j,max:integer;
begin
For i:=1 to n do
with g[i] do
begin
Write('Введите фамилию: ');ReadLn(fam);
Write('Введите вес багажа: ');ReadLn(ves);
Write('Введите количество вещей: ');ReadLn(kol);
end;
max:=g[1].ves;
for i:=n downto 1 do
for j:=1 to i do
if (40>=g[j+1].ves) and ((g[j].kol>1))  then
begin
buf:=g[j];
 g[j]:=g[j+1];
 g[j+1]:=buf;
end;
For i:=1 to n do
with g[i] do
begin
Writeln(i,' пассажир:');
Writeln('Фамилия - ',fam);
Writeln('Вес - ',ves);
Writeln('Количество вещей - ',kol);
end;
ReadLn;
end.