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

var x,p,m:integer;
c:char;
begin
writeln('введите число М');
readln(m);
p:=1;
c:='y';
while c='y' do
 begin
 writeln('введите элемент последовательности');
 readln(x);
 if (x>=0)and(x>m) then p:=p*x;
 writeln ('ввести следующий элемент последовательности? y-да n-нет');
 readln(c);
 end;
if p<>1 then writeln ('Произведение элементов равно ',p) 
  else
writeln('Элементов удовлетворяющих условию нет');
end.

const nmax=100;
type mas=array[1..nmax] of integer;
    task=object
     a:mas;
     n:integer;
     k:integer;
     procedure init(var x:mas;m:integer);
     function dobut(var x:mas;m,k1:integer):integer;
     procedure print(var x:mas;m:integer);
    end;
procedure task.init(var x:mas;m:integer);
 var i:integer;
begin
 for i:=1 to m do
  x[i]:=-15+random(10*m);
end;
function task.dobut(var x:mas;m,k1:integer):integer;
 var i,d:integer;
begin
 d:=1;
  for i:=1 to m do
   if x[i]>k then 
    d:=d*x[i];
  dobut:=d;
end;
procedure task.print(var x:mas;m:integer);
 var i:integer;
begin
 for i:=1 to m do
  write(x[i]:4);
end;
var tk:task;
begin
 repeat
  write('Кол-ство числе до ',nmax,' n=');
   readln(tk.n);
 until tk.n in [1..nmax];
 writeln;
 writeln('Последовательнсть чисел :');
  with tk do
   begin
    init(a,n);
    print(a,n);
   end;
  writeln;
 write('Введите число k=');
  readln(tk.k);
 writeln;
 writeln('Произведение чисел котоые больше ',tk.k,' = ',tk.dobut(tk.a,tk.n,tk.k));
end.