Собственно сабж, помогите дописать модуль программы:
1)ввод списка работает
2)вывод списка работает
3)удаление записей нет
4)поиск нет
5)редактирование записей нет
6)сортировка нету(
for i:=1 to filesize(f1) do
begin
read(f2,c1);
if filepos(f1) <> n then write(f1,c1);
end;
procedure vyvod;
begin
...
for i:=1 to n do
begin
read(f1,c1);
if c1.firma=zapros then {--добавить
дальше уже фантазируй как у тебе прога работает}
writeln(c1.firmy:15, c1.tovar:10, c1.rik:7)
end;
readkey;
end;
writeln(c1.firma+' изменить?')
readln(st);
if st[1]='+' then c1.firma:=copy(st,2,255) else
if st[1]='-' then writeln('без изменений');
{можешь использовать case
не плохо бы проверять ввёл ли пользователь команду
И так для каждого поля
потом пишешь запись в обратно в файл}