Задача на связанные списки Опции

[pashist]

Здравствуйте! Помогите, пожалуйста, решить задачу!
Вот текст:
Фирма по хранению и сбыту бытовых инструментов получает грузы с оборудованием по различным ценам и продает их затем с 20%-ной надбавкой, причем товары, полученные позднее, продаются в первую очередь. Нужно написать программу, считывающую записи о торговых операциях двух типов: операции по закупке и операции по продаже. Запись о закупке содержит префикс "R", количество товара, стоимость одного изделия и общую стоимость всей партии. Запись о продаже содержит префикс "S" и количество товара, а также стоимость данной партии. После считывания записи о закупке нужно вывести её на экран, например, если фирмой было продано 200 единиц оборудования, в которые входили 50 единиц с закупочной ценой 1,25$ и 150 единиц с закупочной ценой 1,1$, то должны быть напечатаны 3 строки:
50 штук по 1,50$ каждый на сумму 75.00$
150 штук по 1.32$ каждый на сумму 198.00$
Всего продано на сумму 273.00$
Если на складе отсутствует требуемое в заказе число изделий, то нужно продать все имеющиеся и напечатать сообщение об отсутствии остальной части на складе.

Как подойти к решению? Как здесь использовать связанные списки? Пожалуйста, проконсультируйте!

[volvo]

Наоборот, ты пытаешься неоднократно применить Dispose к одному и тому же указателю, как результат - второй раз Dispose применяется к Nil, и ты видишь то, что видишь...

Что называется, "Вы глюков хотите - их есть у меня" (С)

Хы... Хитрый. А теперь попробуй сделать так:

Begin { <--- Начало основной части программы }
  WriteLn('Перед началом: ', MemAvail); { <-- Запиши это число }
  ReadLn;

  { ... Вся твоя программа ... }

  WriteLn('Перед завершением', MemAvail); { <-- Сравни с тем, что записал выше }
  ReadLn;
End.

Эти 2 числа как пить дать не совпадут, а это означает, что у тебя есть утечка памяти...