Код:
Type import=record
name: string[15];
cena: Real;
kraina: string[15];
partia: Real;
data: tdatetime;
end;
var f: file of import; //файл записів
z: import; //запис
namefile: string; //ім'я файла
nbtn2: integer;
MAD: теги!
Есть типизированный файл.(Обьявление выше).Нужно найти товары проданные за ПОСЛЕДНЮЮ неделю.Как это можно реализовать?