Работа с файлами(Pascal

[Mekkeliard]

Привет всем. Имеется задача: Багаж пассажира хар-ся количеством вещей и общим весом. Дан файл f, в котором содержится информация о багаже нескольких пассажиров, т.е информация о багаже каждого пассажира представляет собой пару чисел. Необходимо найти багаж, средний вес одной вещи в котором отличается не более чем на 0.3кг от общего среднего веса вещи.

Помогите сделать задачу так, чтобы создавала файл в модуле, а остальное выполняла в основной задаче.
Или хотя бы помогите сделать типизированный файл, где вещи - integer,a вес - real. Когда я создал текстовый файл встала проблема с переводом в числа. Поэтому так не надо Или научите перевод из текста(не из строки, тип - text) в число(integer и real).

[alex_fcsm]

Что уже у вас есть?

[Mekkeliard]

Модуль который не работает))

unit bagaj;
interface
type bag=record
     vesh:integer;
     ves:real;
     end;
var my:bag;
    f1:file of bag;
    n:integer;
procedure baj(i,n:integer;var f1:file;vesh:integer;srves,ves:real);
implementation
procedure baj;
begin
readln(n);
assign(f1,'bagaj.txt');
rewrite(f1);
for i:=1 to n do begin
bag(vesh):=random(10);
bang.ves:=random(40);
write(f1,bang);
end;
close(f1);

end;

begin
end.