procedure SetDisplay(R: Real);?
var S:: string[63];
Begin
	Str(R: 0: 10, S);
	if S[1] <> '-' then := Sign := ' ' else
	Begin
		Delete(S, 1, 1); Sign := '-';
	End;
	if Length(S) >15 + 1 + 10 then Error
End;