daca ii true atunci b ii mai mare
function lexi(a,b:string):boolean;
var j,na:integer; ok:boolean;
begin
	na:=length(a);
	ok:=false;
	j:=na;
	while a[j]=b[j] do dec(j);
	if a[j]<b[j] then ok:=true;
	lexi:=ok;
end;