Переписать методом ООП

Const
 N=16;
Var
 A,B:Array[1..N] of Integer;
 i:byte;
Begin
 Randomize;
 for i:=1 to N do
  begin
   A[i]:=-10+Random(20);
   B[i]:=Random(10)+1;
  end;
 Writeln('Before:');
 write('Array A:    ');
 for i:=1 to N do write(A[i]:4);
 writeln;
 write('Array B:    ');
 for i:=1 to N do write(B[i]:4);
 writeln;
 Writeln('After:');
 write('Array B:    ');
 for i:=1 to N do
  begin
   if A[i]<=0 then B[i]:=B[i]*10 else B[i]:=0;
   write(B[i]:4);
  end;
 Readln
End.

uses crt;
const n=16;
type mas=array [1..n] of integer;
arr=object
    a:mas;
    procedure Vvod;
    procedure Vyvod(s:string);
    end;
procedure arr.vvod;
var i:byte;
begin
for i:=1 to n do
a[i]:=-10+random(20)
end;
procedure arr.vyvod;
var i:byte;
begin
writeln(s);
for i:=1 to n do
write(a[i]:4);
writeln;
end;
 
var x,y:arr;
    i:byte;
begin
clrscr;
x.vvod;
x.vyvod('Исходный массив A');
y.vvod;
y.vyvod('Исходный массив B');
for i:=1 to n do
if x.a[i]<=0 then y.a[i]:=y.a[i]*10
else y.a[i]:=0;
y.vyvod('Измененный массив B');
readln
end.