Задача на списки, Создание из файла списка Опции

[-=Считывающий=-]

Доброе время суток!
Вот значится какая проблемма, есть файл следующе структуры:
<Фамилия_1> <Ответ1> <Ответ2>
...
<Фамилия_n> <Ответ1> <Ответ2>
, причем у каждого человека по два РАЗНЫХ ответа.

Нужно найти все разные ответы, и найти кол-во повторов каждого из них.

В принципе уже понял как что делать, но, неповерите, запоролся в самом начале)))
Решил создать массив строк, чисто для удобства и вот тут я появилась проблемма.
Происходит следующее, в процессе формирования - все ок, но как только процедура по созданию массива заканчивает работу, весь массив смещается на одну позицию вниз, т.е. 1 становится 2, 2 -3 и т.д.

Вот код и файл БД)), подскажите, в чем проблемма?

[volvo]

Во-первых, ты неправильно делаешь проверку... Я бы делал так:

Procedure Proverka(buf:string;var flag:boolean);
Var bufHead:NSl;
Begin
   bufHead:=Head;
   flag:=false;
   While bufHead<>nil do
   Begin
         If bufHead^.Sname=buf
         Then
             begin
             flag:=true;
             end;
         bufHead:=bufHead^.Next; { <--- Это надо делать ВСЕГДА, иначе очень возможно зацикливание }
   end;
End;

(зачем менять глобальную переменную дважды, если можно один раз поменять локальную?)

Второе - печать списка, совершенно аналогично, не меняй глобальные переменные (ими вообще лучше не пользоваться, но это - отдельная тема для разговора):

Procedure PrintSl(Sl:NSl);
Var
   i, n:integer;
   p: nsl;
Begin
    p:=Sl;
    While (p<>nil) do
    Begin
          writeln(p^.Sname,' ',p^.Kol);
          p:=p^.Next;
    end;
end;

(естественно, что вызывать печать списка в главном Case придется по-другому:

2: PrintSl(Head);

)

Ну, и самое главное, ты неправильно конструируешь список... Прежде всего, при инициализации нового элемента, его Next нужно об-Nil-ить:

Procedure NewSl(var Sl:NSl);
Begin
   New(Sl);
   sl^.next := nil; { <--- Вот тут !!! }
   If Head=nil then
      Begin
         Head:=Sl;
         { Tail:=Sl; } { <--- Это - одинаковое для обеих веток действие, выносим ПОД If }
      end
   else
      begin
         Tail^.Next:=Sl;
         { Tail:=Sl; } { <--- Это - одинаковое для обеих веток действие, выносим ПОД If }
      end;

   Tail := Sl;
End;

Ну, и основная ошибка - ты зачем меняешь Head^? Не проще ли сделать так:

       If flag=false then
          Begin
             NewSl(Sl);
             sl^.Sname:=St_Otv1; { Зачем-то ты же инициализировал Sl, правда? }
             sl^.Kol:=1;
          end

?