Разработка объектов-таблиц

[Makino]

Помогите, пожалуйста. Вот условие задачи:
Каждая строка табл. - сведения о некоторых деталях:
Деталь - Количество - Место хранения - Количество - Место хранения - ...
Создать хеш-таблицу из списков деталей при условии, что каждый тип деталей в одной строке снабжается некоторым ключом. Методы: вставить новый элемент в правильное место таблицы, удалить элемент из таблицы, определить число сравнений для каждого из поисков...

Как добавить данные об одном складе в таблицу? я написала так, но у меня неправильно работает, подскажите, где ошибка!

Procedure Add_Det (var hd: PDlist);
var
dlp: PDlist; // промежуточный элемент двойного списка.
s: string; // вводимое пользователем название детали.
f: boolean; // сигнал для нас - нашли ли такую детальку.
t: integer; // количество созданных данных о детали.
key: string[N]; // ключ.
Sk: Sklad; // переменная склада.
lp, ls, // промежуточные элементы линейного списка.
PStart: PList; // первый элемент линейного списка.
ch2: char; // для выбора пользователя.
begin
writeln;

  if hd = nil then
    begin
      writeln(Russ('Ошибка! Таблицы еще не существует!'));
      writeln;
      exit;
    end;

writeln(Russ('Добавление данных о детали в процессе...'));
writeln;
  write(Russ('Введите название детали:  '));
  readln(s);
  dlp:= hd; 
  f:= false; 
    while dlp <> nil do
      if (dlp^.name <> s) then 
        dlp:= dlp^.down
      else     
        begin
          f:= true;
          t:= dlp^.td;
          key:= dlp^.key; 
          PStart:= dlp^.right;
            if t = N then 
              begin
                writeln(Russ('Ошибка! Количество данных о складах достигло максимального значения!'));
                writeln;
                exit;
              end;
          // Заполнение данных о складах:
            repeat 
              writeln;
                inc(t); 
                  if t > N then // если это количество стало больше, чем нам надо, то...
                    begin
                      writeln(Russ('Ошибка! Количество данных о складах достигло максимального значения!'));
                      writeln;
                      break; 
                    end;
              write(Russ('Введите номер склада (1..' +  IntToStr(N) + ') :  '));
              readln(Sk.Name);
              
                  if key[Sk.name] = '1' then // если данные об этом складе уже есть, то...
                    begin
                      writeln(Russ('Ошибка! Данные об этом складе уже существуют!'));
                     writeln;
                      break; 
                    end;
           write(Russ('Введите количество деталей на данном складе:  '));
              readln(Sk.Num); 
              key[Sk.Num]:= '1'; 
              // создание линейного списка.
                  lp:= nil; 
                  new(lp); 
                  lp^.Det:= Sk;
                  lp^.next:= nil; 
              if PStart = nil then
                begin
                  PStart:= lp;
                  dlp^.right:= PStart;  
               end
              else      
                begin
                  ls:= PStart;
                    while ls^.next <> nil do
                      ls:= ls^.next; 
                  ls^.next:= lp;
                end;
              writeln;
              write(Russ('Продолжить создание данных? (y/n):  '));
              readln(ch2);
             until (ch2 <> 'y') 
           end;

и как удалить информацию об одной детали? с этим пунктом у меня та же история(

заранее благодарна

[Stilet]

Без тьестирования полного кода ошибку просечь не получится.
Да и потом... мне кажется твой пример черезчур сложным...
Не могу понять зачем этот весь код.. Что он делает?

[Makino]

вроде должен добавит данные об одном складе. по-моему у меня ошибка в цикле repeat ... until (ch2 <> 'y'), после нажатия 'n' он опять выдает "ведите номер склада [1..10]", тоже самое что при нажатии 'y'