[Pascal] Почему-то не работает программа "Множества"

[zifanchuck]

Помогите доделать программку))
Вот условие

 Задан некоторый набор товаров. Определить для каждого из 
товаров, какие из них имеются в каждом из N магазинов, какие 
товары есть хотя бы в одном магазине и каких товаров нет ни в 
одном магазине.

Тема "Множества"

Вот тот код что написал

program m3_test;
uses crt;
label start;

var
cont:byte;
magazin:array[1..100] of set of char;
tovar:array[1..100] of char;
v1,v2,v3:set of char;
temp:char;
test,n,i,j,t,tov:integer;


begin
start:
clrscr;

write('Vvedite kol-vo tovarov -->');
readln(tov);
writeln('V nazvaniah ispolzovat toljko odnu lat. bukvu');
writeln;

for i:=1 to tov do
begin
write('Vvedite nazvanie ',i,' tovara -->');
readln(tovar[i]);
end;
writeln;

write('Vvedite kol-vo magazinov -->');
readln(n);

writeln;

for i:=1 to n do
begin
write('Vvedite kol-vo tovoarov v ',i,' magazine -->');
readln(t);
writeln;
     for j:=1 to t do
     begin
     write('Imja ',j,' tovara -->');
     readln(temp);
     magazin[j]:=magazin[j]+[temp];
     end;
writeln;
end;

writeln;

for i:=1 to tov do
begin
test:=0;

for j:=1 to n do
begin
writeln(j,':',tovar[i]);
if tovar[i] in magazin[j] then inc(test);
end;

if test=0 then v1:=v1+[tovar[i]];
if test>0 then v2:=v2+[tovar[i]];
if test=n then v3:=v3+[tovar[i]];
end;


writeln('Resultat');
writeln('V kashdom magazine:');
for i:=1 to tov do
if tovar[i] in v3 then writeln(tovar[i]);

writeln;

writeln('Xotjabi v 1 magazine:');
for i:=1 to tov do
if tovar[i] in v2 then writeln(tovar[i]);


writeln;

writeln('Ni v odnim magazine:');
for i:=1 to tov do
if tovar[i] in v1 then writeln(tovar[i]);



writeln('');
writeln('Xotite prodoljit? 1-da, 0-net');
readln(cont);
if cont=1 then goto start;
end.

"Ни в одном" и "хотя бы в одном" считает норм, а вот "во всех" нет.
Переменная test, если нигде нет товара = 0, если где-то есть то 1, хотя по идеи должна считать кол-во нахождений.

Надеюсь что поможете. Зарание спасибо

[zifanchuck]

По идеи ошибка где-то в 59 строке. С множествами познакомился сегодня утром, так что может я не так формирую его. Целый день убил на эту прогу, нужно еще написать 4, тоже с множествами + выучить файлы и написать еще 4 проги, и все на понедельник =(

Вроде все правильно делаю, и в переменной тест должно храниться кол-во нахождений, а почему-то не считает =( Очень рассчитываю на вашу помощь