Товарные операции (2уровень)

Условие:
Предприниматель приобретает товар по оптовой цене (цена в долларах США за 100 единиц товара) партиями по 100 единиц. Затем он этот товар продаёт по розничной цене (цена в рублях за одну единицу товара). Составить программу для определения размера прибыли, которую получит предприниматель в рублях, если продаст весь товар.

Технические условия:
Программа должна читать исходные данные из файла input.txt, имеющего такую структуру:
- Первая строка содержит число N (N<2³¹) - количество видов приобретённого товара.
- Каждая последующая строка содержит четыре числа, разделённых одним или несколькими пробелами - информацию о товаре: количество единиц приобретённого товара, оптовая цена товара (за 100 единиц товара), розничная цена единицы товара, курс доллара (цена одного доллара в рублях) на момент приобретения товара.
Программа должна заносить результат работы в файл output.exe, содержащий единственное вещественное число с двумя знаками дробной части - размер прибыли предпринимателя в рублях.

Пример входного и выходного файлов:

Решение:
{$N+}
{Переводим данную директиву компилятора в состояние $N+ для использования переменной типа extended}
var
F:text;
n,i:longint;
S:extended;
T:integer;
Opt,Rozn,Buks:Real;
begin
assign(f,'input.txt');
reset(f);
readln(f,n);
for i:=1 to n do begin
read(F,T,Opt,Rozn,Buks);
S:=S+T*Rozn-T/100*Opt*Buks;end;
close(f);
{Для N-ого количества товаров читаем из файла значения переменных и по формуле вычисляем размер прибыли предпринимателя}
assign(f,'Output.txt');
rewrite(f);
Writeln(F,S:2:2);
{Выводим в файл значение переменной S с двумя знаками после запятой}
Close(f);
end.