ПОМОГИТЕЕЕЕЕЕЕ!!!!!!!

[Malice]

Вот небольшой набросок, думаю этот то, что тебе надо, зачем усложнять:

 
uses crt;
type fish = (fish1, fish2, fish3, fish4); {Все рыбы}
const Names: array [fish] of string =('fish1', 'fish2', 'fish3', 'fish4'); {имена}
var t,r1,r2,r3,oz:set of fish;
i: fish;
begin
for i:=fish1 to fish4 do oz:=oz +[i];  {Все рыбы в озере}
r1:=[fish1,fish2]; {первый рыбак поймал и т.д.}
r2:=[fish1,fish3];
r3:=[fish1,fish2,fish3];
t:=r1*r2*r3;   {Пересечение множеств, т.е. есть у всех}
for i:=fish1 to fish4 do
if i in t then writeln (names[i]);
t:=oz-r1-r2-r3;   {нет ни у кого}
for i:=fish1 to fish4 do
if i in t then writeln (names[i]);
end.

[stalker]

Malice: Огромное спасибо..... Тебе RESPECT.....
Извини что раньше не поблагодарил был занят....

[Avatonk]

Чувак если ссылку удалят пиши в лс,вот pas фаил готовой задачи:
http://rghost.ru/33926531