хм починил сам.... детские ляпы.... вот тут касячил:
Код
writeln('Поиск товаров не пользующихся спросом:');
min:=1000;
for i:=1 to 10 do
if min>m[i].chit then
   begin
   pos:=i;
   end;
writeln('Самый не популярный товар: ',m[pos].ntovar,', его изготовил: ',m[pos].zavodizg);

вот правильная версия:
Код
writeln('Поиск товаров не пользующихся спросом:');
min:=1000;
for i:=1 to 10 do
begin
if min>m[i].chit then
   begin
   min:=m[i].chit;
   pos:=i;
   end;
end;
writeln('Самый не популярный товар: ',m[pos].ntovar,', его изготовил: ',m[pos].zavodizg);