我很菜，谁能帮助我看这个函数的功能！(50分)

TPhrases= array[0..1023] of pchar;
Language : TPhrases;

function Phrase_Internal(Phrases: TPhrases
n: integer
Item: string
readable: boolean): string;
var
i: integer;
begin
Item:=Item+' ';
i:=0;
while (i<n) and ((Phrases[0]<>'#')
or (StrLComp(Phrases+1,@Item[1],Length(Item))<>0)) do
inc(i);
if i=n then
if readable then result:='['+Item+']'
else result:=''
else result:=Copy(Phrases,Length(Item)+2,MaxInt);
end;

function Phrase(Item: string): string;
begin
result:=Phrase_Internal(Language,nLanguage,Item,true);
end;

先谢谢了！！

你代码给的也不全叫人怎么看呀！

大概是进行句法分析的某一段程序代码