Notes

program reactii_chimice;
uses crt;
type substanta=record
nume:string; {substanta, in string}
react:boolean; {specifica daca e reactant (F) sau produs de reactie (T)}
atom:array[1..10] of byte; {tipurile de atomi din substanta, in ordinea masei atomice}
nra:array[1..10] of byte; {}
{!!!}
end;
var reactie:string;
subst:array[1..15] of substanta;
k:byte; {numarul de substante}

{***}

procedure citire_reactie; {'decodeaza' reactia}

procedure separare_cuvinte; {**} {separa substantele din reactie si reactantii de produsi}
var cuv:array[1..20] of string;
i,j,mij,pozprod:byte; {contor,contor,pozitie egal (separa reactantii de produsi),pozitia primului produs de reactie}
notsub:boolean; {folosit pentru eliminarea semnelor + si =}

begin
k:=0; {contor, devine nr. de cuvinte}
j:=1;
for i:=1 to length(reactie) do
begin
if reactie[i]=' ' then begin {separa cuvintele, inclusiv + si =}
inc(k);
cuv[k]:=copy(reactie,j,i-j+1);
j:=i+1;
end;
if reactie[i]='=' then mij:=i; {stabileste pozitia pana la care se gasesc reactantii}
end;

repeat {elimina semnele + si =}
notsub:=false;
for i:=1 to n do
if (cuv[i]='+') or (cuv[i]='=') then
begin
for j:=i to k-1 do
cuv[j]:=cuv[j+1];
notsub:=true;
end;
until notsub=false;
for i:=1 to k do
begin
subst[i].nume:=cuv[i];
if pos(cuv[i],reactie)<mij then subst[i].react:=false
else subst[i].react:=true;
end;
for i:=1 to k do
if subst[i].react=false then pozprod:=i;
inc(pozprod);
end;

procedure stabilire_atomi; {**}
var i:byte;

procedure separare(x:substanta); {separa atomii dintr-o substanta si spune numarul lor}
var atomi:array[1..10] of string;
nratom:byte;
i1,i2:byte;
begin
for i1:=1 to length(x.nume) do {separa parantezeleh b}
begin
if x.nume[i1]='(' then
begin
i2:=i1;
repeat
inc(i2);
until x.nume[i2]='(';
end;
end;





{!!!}
end;

begin
for i:=1 to k do
separare(subst[i]);
{!!!}
end;

begin {procedura principala}
read(reactie);
separare_cuvinte;
stabilire_atomi;
{!!!}
end;

{***}

begin {programul principal}
clrscr;
citire_reactie;
{!!!}
readkey;
end.