народ помогите написать прогу

[Jeksik]

Задание: Подготовить список из N наименованиями товаров. Конкретное значение N указано в варианте. Информация о каждом товаре имеет:
А) Название товара
Б) цена
В) год выпуска
Г) количество
Список должен быть упорядоченный по одному из параметров, указанных в конкретному варианте. Ведомости о каждом товаре необходимо преподать в виде записи.
Разработать программу, которая заносит во внешний текстовый файл записи упорядоченного списка, и программу, которая добавляет в сформированный внешний текстовый файл данные про М товарах, при этом не нарушая упорядоченность начального файла. Если среда товара, который добавляется, встречается товар, ведомость про который в файле уже есть, тогда необходимо их обновить, то есть старую запись убрать.
35) Товары упорядочены по не росту года выпуска, N=9, M=4.

[vovk]

Не обнаружил кода где надо помочь только условия задачи.
В таком случае надо просить напишите мне программу

[Jeksik]

Вот основная программа:

PROGRAM lr9;
TYPE
tov = RECORD

END;
VAR
naim: text;
nazva: string[20];
cena: real;
god: string[4];
kolv: integer;
I, REG: INTEGER;
{$i RSOZD.PAS}
{$i POBR.PAS}
{$i PKORR.PAS}
BEGIN
WHILE TRUE DO
BEGIN
writeln('Для окончания ввода введите в поле "номер товара" 777');
WRITELN ('Выберите действие');
WRITELN (' 1: Создание и занесение в файл информации');
WRITELN (' 2: Просмотр данных');
WRITELN (' 3: Добавление товаров ');
WRITELN (' 4: Выход');
READLN (REG);
CASE REG OF
1: ORG;
2: OBR;
3: RASH;
4: HALT;
ELSE WRITELN ('ОШИБКА ВЫБЕРИТЕ ДЕЙСТВИЕ');
End;
End;
End.

вот отдельно процедуры:

PROCEDURE org;
TYPE
tov = RECORD

END;
var naim:text; nomer: integer;
nazva: string[20];
cena: integer;
god: string[4];
kolv: integer;
BEGIN
ASSIGN (naim,'d:\naim.txt');
REWRITE (naim);

WHILE TRUE DO
BEGIN
WRITELN ('Введите номер товара ');
READLN (nomer);
IF nomer = 777 THEN
BEGIN
CLOSE (naim);
EXIT;
END;
WRITELN ('Введите назнание товара ');
READLN (nazva);
WRITELN ('Ввведте цену товара ');
READLN (cena);
WRITELN ('Введите год выпуска товара ');
READln (god);
WRITELN('Введите количество товара ');
READln (KOLV);
WRITEln (naim,nomer ,nazva ,cena ,god ,kolv);
END;
END;

PROCEDURE OBR;
TYPE
tov = RECORD

END;
VAR
naim: text;
nomer: integer;
nazva: string[20];
cena: integer;
god: integer;
kolv: integer;

BEGIN
ASSIGN (naim,'d:\naim.txt');
RESET (naim);
WHILE NOT EOF (naim) DO
BEGIN
READln (naim);
WRITELN (nomer , nazva , cena , god , kolv);
END;
CLOSE (naim);
END;

PROCEDURE RASH;
type
tov = record

end;
var
naim:text;nomer: integer;
nazva: string[20];
cena: integer;
god: integer;
kolv:integer;

BEGIN
ASSIGN (naim,'d:\naim.txt');
append (naim);
WHILE TRUE DO BEGIN
WRITELN ('Введите номер товара ');
READLN (NOMER);
IF NOMER=777 THEN
BEGIN
CLOSE (naim);
EXIT;
END;
WRITELN ('Введите название товара ');
Readln (nazva);
WRITELN ('Введите цену товара ');
Readln (cena);
WRITELN ('Введите год выпуска товара ');
Readln (god);
writeln('Введите количество товара ');
readln(kolv);
WRITEln (naim ,nomer ,nazva ,cena ,god );
END;
END;

Помогите пожулуйста добавить сюда чтобы когда вводиш инфу о товарах они сортировались.И также сортировались когда вводиш новую инфу.