работа с файлом

[scudo]

Программа оператор бензоколонки.
Задачи: Выполняется расчет бензина, полученной суммы, сдачи с нее и вывод сообщения о проделанной работе.

Все работает, но хотел бы попросить помощи.
Хочу сделать так чтоб, велось количество оставшегося топлива в колонках.
Т.е. к примеру в 1ой колонке 4 типа топлива. Изначально в колонке по 1000литров каждого из них, и по мере того как тратится бензин, вычиталось с этих 1000литров...и при достижении 100литров какого-либо из них выдавалось сообщение. Что-то тип "долей в меня" ))).
Просто чтоб данные не пропадали а сохранялись в файле. У меня с файлами беда прям(.

Предоставляю исходник. Очень буду рад помощи.

[Вадим Буренков]

//Переменная файла
var f:Text;
begin
//ассоциируем файл с переменной
AssignFile(f,'File.txt');
//открываем для записи
rewrite(f);
writeln(f,'Текст файла');
//закрываем
closeFile(f);
end;

[scudo]

) ну это понятно. только у меня там 4 колонки и 4 типа топлива. 16 переменных в итоге. Мне важней как это выглядеть будет в моей программе. Честно не представляю как брать все это с текстового файла. Запись типа рекорд возможно будет лучше...хотелось бы вас послушать и если не затруднит на моем примере показать

[Вадим Буренков]

При сохранении данных для последующей загрузки лучше использоватьтипизированный файл.
Создаешь тип с сохраняемыми данными для файла:

TFileType=record
Str:string[255];//не должно быть динамических массивов!
int:integer;
float:single;
end;

//Переменная файла
var f:file of TFileType;
//сохраняемый тип
Test:TFileType;
begin
//заносим данные
Test.Str:='qwerty';
Test.int:=10;
Test.float:=0.1;

//ассоциируем файл с переменной
AssignFile(f,'File.txt');
//открываем для записи
rewrite(f);
write(f,Test);
//закрываем
closeFile(f);
end;

Чтение данных

begin
//ассоциируем файл с переменной
AssignFile(f,'File.txt');
//открываем для чтения
reset(f);
read(f,Test);
end;
//закрываем
closeFile(f);

[scudo]

TFileType=record
dt: double;

var
Form1: TForm1;
var fl: file of TFileType;
gas_ost:TFileType;


AssignFile(fl,'File.txt');
if (gas_ost.dt<=0) then
gas_ost.dt:=1000;
gas_ost.dt:= gas_ost.dt-v;

//открываем для записи
rewrite(fl);
write(fl, gas_ost);
//закрываем
closeFile(fl);

Не пойму что тут не так. Пытаюсь сделать так чтоб сохранялся результат вычислений в файле. Не получается. При закрытии программы и снова присваивается 1000 и вычисления нач с начало. Переменная v-это переменная в которую заносится значение с edit.