Проблема с поиском,удалением и редактированием

[Otar4ik]

Снова доброго времени суток!
Помнится кидал тут программку,неработающую,так вот заработала
НО проблема с удалением,поиском товара по названию,редактированием и выбором товара по цене.
Даже если такой товар существует и цена существует,то она пишет Товар не найдет или Список Пуст.

Выкладываю свои коды,в которых как мне кажется(я не могу найти) закралась ошибка.

Вся программа прикреплена архивом.
Реализую на языке Turbo Pascal 7.0(School Edition)

procedure Del(var beg, fin, p: pTovar);
begin
   if (p = beg) and (p = fin) then
   begin
      beg := nil;
      fin := nil;
   end
   else
   if p = beg then begin
      beg := beg^.next;
      beg^.prev := nil
   end
   else
   if p = fin then begin
      fin := fin^.prev;
      fin^.next := nil;
   end
   else
   begin
      p^.prev^.next := p^.next;
      p^.next^.prev := p^.prev;
   end;
   dispose(p);
end;
 
procedure edit(beg: pTovar; const tovr: Tovar);
var
   p: pTovar;
begin
   p := Find(beg, tovr.name);
   if p <> nil then begin
      p^.kolvo := tovr.kolvo;
      p^.cena := tovr.cena;
   end;
end;


function Find(p: pTovar; const tovr:str_name): pTovar;
begin
   while p <> nil do
   begin
      if name = p^.name then
      begin
         Find := p;
         exit;
      end;
      p := p^.next;
   end;
   Message('Tovar ne naiden');
   Find := nil;
end;

[Serge_Bliznykov]

function Find(p: pTovar; const tovr:str_name): pTovar;
begin
...
      if name = p^.name then

Вы в функцию поиска передаёте товар, который нужно найти. Так?
Это второй параметер функции: tovr:str_name, так?
Ну и где Вы внутри функции его используете?!!
Надо же сравнивать с этим переданным товаром!

[Otar4ik]

Спасибо за совет и подсказку,но всё равно знаете ни в какую не ищет.

Сначала я сделал так:

if tovr=p^.name then

программа компилируется,но не ищет опять же.

А потом решил поэкспериментировать

if tovr=p^.name then
if name=p^.str_name then
if name=p^.tovr then

у всех трёх одинаковые ошибки - Предполагается идентификатор поля.

[Otar4ik]

Я уже просто все варианты перепробовал,ничего не получается,что надо сменить-то,все переменные перепробовал результат такой же-пишет Товар не найден.

[Otar4ik]

Тему можете закрывать всё отдалил)))

[Serge_Bliznykov]

Сообщение от Otar4ik

Тему можете закрывать всё отдалил)))

"отдалил" это в смысле - "отладил"?

[ZX Spectrum-128]

Должно быть, отдалил от себя зачет
Приблизив к себе военкома