Определить, какие виды рыб есть у каждого рыбака

uses Crt;
type fish=(karp,karas,okun,sazan,shuka,som);
     mnz=set of fish;
const n=3;
      naz:array[0..5] of string=('карп','карась','окунь','сазан','щука','сом');
var a:array[1..n] of mnz;
    i,f,w:byte;
    k:fish;
begin
clrscr;
for i:=1 to n do
 begin
  writeln('Какие виды рыб поймал рыбак ',i);
  writeln('0-карп 1-карась 2-окунь 3-сазан 4-щука 5-сом 6-выход');
  repeat
   readln(w);
   if w in [0..5] then a[i]:=a[i]+[fish(w)];
  until w=6;
 end;
writeln('Виды рыб есть у всех рыбаков:');
f:=0;
for k:=karp to som do
 begin
  w:=0;
  for i:=1 to n do
  if k in a[i] then w:=w+1;
  if w=3 then
   begin
    write(naz[ord(k)],'  ');
    f:=1;
   end;
 end;
writeln;
writeln;
if f=0 then writeln('Таких видов рыб нет!');
writeln('Есть в озере, но нет у рыбаков:');
f:=0;
for k:=karp to som do
 begin
  w:=0;
  for i:=1 to n do
  if k in a[i] then w:=w+1;
  if w=0 then
   begin
    write(naz[ord(k)],'  ');
    f:=1;
   end;
 end;
if f=0 then writeln('Таких видов рыб нет!');
readln
end.