{kemiai reakciok
  - reakcioter: n*m-es tabla
  - molekulakat (betuket) veletlenszeruen,
        nagyjabol egyenletesen helyezunk el
  - mozgas (csere) + reakcio tortenik

Szimulacios lepes:
  (i,j) veletlenhely (n*m-esbol)
  (k,l) veletlenszomszed(i,j)
  reakciolepes( (T[i,j],T[k,l]) alapjan)
  csere(T[i,j], T[k,l])
elj, vege}
procedure egyesules;
{a+b -> c  pl: C+O2=CO2
at: atalakulasi valoszinuseg}
begin
{ (i,j) veletlenhely;
  (h,l) veletlenszomszed(i,j);
  if ( ((T[i,j]='A') and (T[k,l]='B')) or ((T[i,j]='B') and (T[k,l]='A')) )
       then begin if random<AT
         then begin T[i,j]:='C'; T[k,l]:='0'; end;
  end;
  csere(T[i,j],T[k,l]);}
end;

procedure bomlas;
{c -> a+b pl: CaCO3=CaO+CO2
at: atalakulasi valoszinuseg}
begin
{ (i,j) veletlenhely(n*m-esbol)
  if ( (T[i,j]='C') and (vane_ures_szomszed(i,j,k,l) )
      then if random<AT
          then begin T(i,j):='A'; T[k,l]:='B'; end
      else begin (k,l):=veletlenszomszed(i,j)
  end;
  csere(T[i,j],T[k,l]);}
end;

begin
end;