... mangit;s,Hangso,Bienso : string ;so, sb,st,ip,sst,Sobien: longint;sym : char;f,g : text;ProcedureDocbien;Vars1: string;i: integer;BeginSobien:=0;While not Eof(f) dobeginReadln(f,s1);i:=1; Inc(Sobien);Tenbien[Sobien]:='';While ... Inc(sb);End;FunctionDoiso: longint;Beginso:=0;While s[sb] in ['0'..'9'] dobeginso: =so* 10+(ord(s[sb])-ord('0'));Inc(sb);end;End;ProcedureNhanbien;BeginBienso:='';While ... ' thenIf tri[i] =so thenbeginTimso:=i;exit;end;Inc(st); ten[st]:=' ';tri[st]: =so; Timso:=st;End;FunctionTimbien: integer;Vari: integer;BeginFor i:=1 to st doIf pos(Bienso,ten[i])>0...