为什么数据没有显示呢？初学者求教

Question

program Project1;{$APPTYPE CONSOLE}uses SysUtils;
function shownum(num:double;precision:integer=4):boolean;
var
   messtr:string;
begin
   if precision<=-1 then
   begin
      result:=false;
      exit;
   end
   else
   begin
   messtr:=format('%*.*',[10,precision,num]);
   result:=true;
   end;
   writeln(messtr);
end;
begin
shownum(123.456789);
shownum(123,5);
shownum(22 div 7,5);
if shownum(123.456789,-3)=false then
writeln('数据格式设置错误，输出失败');
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Answer 1

这句写的有问题：
if shownum(123.456789,-3)=false then
shownum()本身就是boolean类型的返回值，应该这样写:if shownum(123.456789,-3) then

Answer 2

错了，上面应该是
if not  shownum(123.456789,-3)  then

Answer 3

还有，format函数好像应该这样写：
format('%*.*f',[10,precision,num]);
你在'%*.*'后面漏了一个f

Answer 4

谢谢前辈，我忘了format函数漏了个f