Люди помогите срочно пожалуйста!

[ReWiR]

for i:=1 to m do
begin
flag:=false;{flag - элемент есть в строке}
for j:=1 to n do
if x=a[i,j] then flag:=true;
if not flag then ex:=false;{элемента нет в строке}
end;
flag:=true;
if ex then{если есть во всех строках}
begin
if ind=0 then begin{если первый элемент в выходном массиве}
inc(ind);
Exist:=true;
end
else
begin
for i:=1 to ind do
if x=b[i] then flag:=false;{если в выходном массиве нет еще такого элемента}
if flag then begin
inc(ind);
exist:=true;
end;
end;
end;

можно обьяснить что здесь делается и как

[ReWiR]

а понял, матрица образуется здесь for i:=1 to m do
begin
for j:=1 to n do

[alex_fcsm]

Сообщение от ReWiR

for i:=1 to m do
begin
flag:=false;{flag - элемент есть в строке}
for j:=1 to n do
if x=a[i,j] then flag:=true;
if not flag then ex:=false;{элемента нет в строке}
end;
flag:=true;
if ex then{если есть во всех строках}
begin
if ind=0 then begin{если первый элемент в выходном массиве}
inc(ind);
Exist:=true;
end
else
begin
for i:=1 to ind do
if x=b[i] then flag:=false;{если в выходном массиве нет еще такого элемента}
if flag then begin
inc(ind);
exist:=true;
end;
end;
end;

можно обьяснить что здесь делается и как

ex:=true - считаем что этот элемент есть во всех строках
Вводим flag - элемент есть в строке

В цикле for i:=1 to m просматриваем все строки
flag:=false - элемент в строке пока не встретился
for j:=1 to n do - просматриваем все элементы строки и если есть совпадение то flag:=true;
Если flag=true - значит элемент есть в строке и ex не нужно менять на false;
flag:=true - означает что в выходном массиве нет такого элемента
if ex - если есть во всех строках
if ind=0 - нашли только первый элемент который есть во всех строках и значит Exist:=true - можно добавлять
else - уже нашли несколько элементов и нужно проверить а не повторяется ли этот элемент в массиве b
if x=b[i] - повторяется и заносить его не нужно(flag:=false)