Подскажите с object в паскале ABC.NET

[dimka123]

Ребята,подскажите с object в паскале ABC.NET;
если в модуле что то намудрил. но как вызвать в самой программе?

unit mod1;// НАПИСАЛ НАЗВАНИЕ И СРАЗУ СОХРАНЯЕШЬ  В ТУ ПАПКУ ГДЕ ЛЕЖИТ САМА ПРОГА.И НАЗЫВАЕШЬ ТАКОЕ ЖЕ КАК ИМЯ МОДУЛЯ

interface   // СЮДА ХЕРАЧИШЬ ОПИСАНИЕ ПЕРЕМЕННЫХ И ПРОЦЕДУРЫ.

const
  n = 10;

type
  masiv = array[1..n] of real;

var
  masA: masiv;

type
  PROG = class
    procedure InputMass(var masA: masiv; n: integer);
    procedure Outobmen(masA: masiv; n: integer);
  end;

implementation 

procedure PROG.InputMass(var masA: masiv; n: integer);
var
  i: integer;
begin;
  writeln('Ввод массива'); 
  for i := 1 to n do 
  begin;
    write('masA[', i, '] = ');
    readln(masA[i]); end;
  
end;

procedure PROG.Outobmen(masA: masiv; n: integer);
var
  i, i1, i2, k: integer;x: real;
begin;
  k := 0;{проверим стоит ли заниматься обменом}
  for i := 1 to n do
    if masA[i] > 0 then k := k + 1;
  if k < 2 then
  begin
    write('В массиве нет пар положительных элементов!');
    readln;
    exit;
  end;
  i1 := 1;i2 := n;{начало и конец}
  repeat
    for i := i1 to i2 do
      if masA[i] > 0 then
      begin
        i1 := i;{ищем первый положительный с начала}
        break;
      end;
    for i := i2 downto i1 do
      if masA[i] > 0 then
      begin
        i2 := i;{то же с конца}
        break;
      end;
    if i1 <= i2 then{если не прошли середину, обмениваем элементы}
    begin
      x := masA[i1];
      masA[i1] := masA[i2];
      masA[i2] := x;
    end;
    i1 := i1 + 1;{начало вперед}
    i2 := i2 - 1;{конец назад}
  until i2 < i1;{все поменяли, встретились}
  writeln('Перестановка положительных:');
  for i := 1 to n do
    write(masA[i]:5:1);
  readln
end;  
end.

ПРОГРАММа

uses mod1;
var x:PROG;
begin;
x:=PROG.InputMass(masA ,n);
PROG.Outobmen(masA,n)
end.

признаюсь. не знаю как работать с этой темой. делал все по шаблону но он блин для турбо кажись.
СПАСИБО тем кто откликнется !