Выход за границы массива

[weech]

Имеется следующая задача:


Имеется список результатов голосования избирателей за несколько партий, в виде списка названий данных партий. На вход программе в первой строке подается количество избирателей в списке N. В каждой из последующих N строк записано название партии, за которую проголосовал данный избиратель, в виде текстовой строки. Длина строки не превосходит 50 символов, название может содержать буквы, цифры, пробелы и прочие символы.
Пример входных данных:
6
Party one
Party two
Party three
Party three
Party two
Party three
Программа должна вывести список всех партий, встречающихся в исходном списке, в порядке убывания количества голосов, отданных за эту партию. При этом название каждой партии должно быть выведено ровно один раз, вне зависимости от того, сколько голосов было отдано за данную партию. Пример выходных данных для приведенного выше примера входных данных:
Party three
Party two
Party one
При этом следует учитывать, что количество голосов избирателей в исходном списке может быть велико (свыше 1000), а количество различных партий в этом списке не превосходит 10.

Имеется код:

program mmm;
uses crt;
const
p=10;
procedure swap(var z,y:integer);
   var t:integer;
 begin
    t := z;
    z := y;
    y := t
 end;
var
x:array [1..p] of record
               name:string;
               count:integer;
               end;
i,n,j:integer;
s:string;
begin
readln(n);
for i:=1 to n do
    begin
    readln(s);
    for j:=1 to p do
    if (x[j].name<>s) then
       begin
       x[j].name:=s;
       inc(x[j].count);
       break;
       end
    else
    inc(x[j].count);
    end;
for i:=2 to p do
    begin
    j:=i;
    while (x[j].count<x[j-1].count) do
          begin
          swap(x[j].count,x[j-1].count);
          dec(j);
          end;
    end;
for i:=1 to p do
if x[i].name<>'' then writeln(x[i].name);
end.

При вводе последней строки выдает выход за границы массива на нулевой строке. Подскажите, что подправить.

[WorldMaster]

Попробуйте пройти по шагам в программе и проконтролировать данные.

[weech]

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

Попробуйте пройти по шагам в программе и проконтролировать данные.

Я с инструментами отладки не очень дружу...

[WorldMaster]

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

Я с инструментами отладки не очень дружу...

Это очень плохо. А по другому вы врядли ошибку найдете.

[WorldMaster]

Закинул в паскал. и ошибки не вылетело. все нормально прошло.

[Аватар]

dec(j) запросто может в цикле while к ошибке привести

[weech]

Сообщение от Аватар

dec(j) запросто может в цикле while к ошибке привести

Согласен, но это, насколько я знаю, - "сортировка вставками", которая не должна приводить к ошибке.

[WorldMaster]

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

Согласен, но это, насколько я знаю, - "сортировка вставками", которая не должна приводить к ошибке.

Приводить к ошибке может ЛЮБОЙ код, который неверно написан. Оттого что это "сортировка обменами" или "вставками" ничего не зависит.

[weech]

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

Приводить к ошибке может ЛЮБОЙ код, который неверно написан. Оттого что это "сортировка обменами" или "вставками" ничего не зависит.

Именно этот фрагмент написан верно. С программой разобрался: break еще один забыл.