Исправить код для PascalABC.net

const size=10;
 
type  pvec=^vec;
 
      vec=object
       n:byte;
       name:string[15];
       a:array [1..size] of real;
 
       constructor init;
       destructor done;virtual;
       procedure inp;
       procedure outp;
       function max(const v:pvec):real;
 
     end;
 
     constructor vec.init;
     begin
          write('input name of our vector - ');
          readLn(name);
 
          repeat
                write('input size of ',name,' - ');
                readLn(n);
          until n<=size;
     end;
 
     procedure vec.inp;
     var i:byte;
     begin
 
          for i:=1 to n do
          begin
               write(name,' [',i,'] = ');
               readLn(a[i]);
          end;
     end;
 
     procedure vec.outp;
     var i:byte;
     begin
          write(name+'=(':10);
          for i:=1 to n do
              write(a[i]:5:1);
          writeLn(')');
     end;
 
     function vec.max;
     var i:byte;
         m:real;
     begin
          m:=a[1];
 
          for i:=2 to n do
              if a[i]>m then m:=a[i];
 
          max:=m;
     end;
 
     destructor vec.done;
     begin
     end;
 
var pv:pvec;
begin
 
new(pv,init);
 
pv^.inp;
pv^.outp;
 
write('max = ',pv^.max(pv):4:1);
 
dispose(pv,done);
 
readLn;
end.