If ((not isPmur(BigElenent[j][h])) and (not isNumber(BigElenent[j][h])))then

begin

HB:=True;

//mmo2.Lines.Add(IntToStr(High(HeaderPer)));

//mmo2.Lines.Add(BigElenent[j][h]);

for n:=0 to High(HeaderPer) do

if (HeaderPer[n] = BigElenent[j][h])then

begin

//mmo2.Lines.Add(HeaderPer[n]+' '+BigElenent[j][h]);

HB:=False;

end;

if(HB)then // 3*5*x-y*x*3*5+x*y

begin

//mmo2.Lines.Add(IntToStr(High(HeaderPer)));

if (High(HeaderPer) < 0) then

SetLength(HeaderPer, 1)

else

SetLength(HeaderPer, High(HeaderPer)+2);

//mmo2.Lines.Add(HeaderPer[High(HeaderPer)] );

HeaderPer[High(HeaderPer)]:=BigElenent[j][h];

end;

end;

end;

end;

for j:= 0 to High(ElementArray)do

begin

for h:=0 to High(ElementArray[j])do

if ElementArray[j][h][1]='Q' then

begin

ElementArray[j][h]:='';

Break;

end;

end;

{ y*(x-1)-1 x^2-y^2-1 }

{for j:=0 to High(HeaderPer) do

mmo2.Lines.Add(HeaderPer[j]); }

{for j:=0 to High(NumerikArray) do

mmo2.Lines.Add(FloatToStr(NumerikArray[j]));} // (-3.1-4.333+2.2*x+4.25*x)

SetLength(DataPer, High(ElementArray)+1);

for j:=0 to High(DataPer) do

begin

SetLength(DataPer[j], High(HeaderPer)+1);

for l:=0 to High(DataPer[j]) do // 3*5*x-y*x*3*5+x*y

begin

DataPer[j][l]:=0;

end;

end;

for j:=0 to High(ElementArray) do

begin

for l:=0 to High(ElementArray[j]) do

begin

for n:=0 to High(HeaderPer) do

begin

if(HeaderPer[n]=ElementArray[j][l])then

Break;

end;

DataPer[j][n]:=DataPer[j][n]+1;

end;

end;

//ShowMessage('OK');

for j:=0 to High(ElementArray) do // 3*5*x-x*3+x*y

begin

Temp:=FloatToStr(NumerikArray[j]);

for l:=0 to High(ElementArray[j]) do

Temp:=Temp+' '+ElementArray[j][l]+' ';

for l:=0 to High(DataPer[j]) do

Temp:=Temp+':'+IntToStr(DataPer[j][l]);

//mmo2.Lines.Add(Temp);

end;

for j:=0 to High(ElementArray)-1 do

begin

if (NumerikArray[j]<>0)then

begin

for l:=j+1 to High(ElementArray) do

begin

if(NumerikArray[l]<>0)then

begin

HB:=True;

for n:=0 to High(DataPer[j]) do

begin

if(DataPer[j][n]<>DataPer[l][n])then

begin

HB:=False;

end;

end;