delphi 7 哪里有错误？

Question

  procedure Max(x:integer;y:integer);
  var
      z:integer;
  begin
      if x>y then
         z:=x
      else
         z:=y;
   writeln('最大值',z);
  end;
  ...
  var
     a,b:integer;
       a=18;
       b:=67;
   Max(a,b);

Answer 1

procedure Max(x:integer;y:integer); 
  var 
      z:integer; 
  begin 
      if x>y then 
         z:=x 
      else 
         z:=y; 
   //writeln('最大值',z); //既然是D7,里面没有writeln这样的过程,改成
   showmessage('最大值'+inttostr(z));
  end; 
  ... 
  var 
     a,b:integer; 
       a=18; 
       b:=67; 
   Max(a,b);