написать программу:Даны сведения о наличии продуктов с их названиями в магазинах.

[artsss]

Даны сведения о наличии продуктов с их названиями в магазинах. Найти:
а) множество продуктов, которые есть во всех магазинах;
б) множество продуктов, которых нет ни в одном магазине.

[artsss]

program Zapisi;
const
n=4;
Type
Magazine=record
name:string;
nal:integer;
end;
var
t:array [1..n] of Magazine;
max,e,i:integer;

begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);


i:=1;
while eof(input)=false do
with t[i] do
begin
readln(name);
i:=i+1;
end;


if i=1 then
begin
writeln(output,'pustoi fail');
close(output);
exit
end;


max:=0;




for i:=1 to n do



begin
if (t[i].nal>max) then
max:=t[i].nal;
end;
writeln(output,'NaliChie v Magazine:',max,'tovara')
end.

вот моя версия.. кто подскажет что поправить что дописать???