помогите с ООП (Turbo delphi)

[alex_1111]

Разработать и реализовать диаграмму классов для описанных объектов предметной области, используя механизмы композиции. Проверить ее на тестовом примере, с демонстрацией всех возможностей разработанных классов на конкретных данных.
Объект - вещественное число, записанное с точкой. Параметры - значение числа в числовом виде и его запись в символьном изображении. Методы: процедура инициализации, процедура вывода значения параметров на экран и функция, определяющая и возвращающая по запросу количество цифр в целой части числа.
Объект – массив вещественных чисел. Параметры: количество и массив чисел. Методы: Процедура инициализации. Процедура вывода на экран значений полей и функции определения среднего значения чисел массива и среднего количества цифр в целых частях этих чисел.

[alex_1111]

то, что есть

 program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils,
  Unit1 in 'Unit1.pas';
Type Massiv=object
  k1:integer;
  mas:array of Number;
  procedure init(k2:integer; const mas1:array of Number);
  procedure print1(a:Number);
  function srch:real;
  function srk:real;
end;
procedure Massiv.init(k2: Integer; const mas1: array of Number);
 var i:integer;
 begin
  k1:=k2;
  For i:=1 to k1 do begin
    mas[i]:=mas1[i];
  end;
 end;
procedure Massiv.print1;
 var i:integer;
 begin
  For i:=1 to k1 do begin
    mas[i].print;
  end;
 end;
function Massiv.srch;
 var i,k:integer;
     s:extended;
 begin
 k:=0;
 s:=0;
  For i:= 1 to k1 do begin
   s:=s+mas[i].n;
   k:=k+1;
  end;
  Result:=s/k;
 end;
function Massiv.srk;
 var i,s:integer;
 begin
  s:=0;
  For i:=1 to k1 do begin
   s:=s+mas[i].k;
  end;
  Result:=s/k1;
 end;
var m:Massiv;
    n:Number;
    i:integer;
    ch:char;
begin
 WriteLn('Vvedite kol-vo');
 ReadLn(m.k1);
 WriteLn('Vvedite chisla');
 For i:=1 to m.k1 do begin
  ReadLn(m.mas[i].n);
  n.ch:=chr(m.mas[i].n);
  n.init(m.mas[i].n; n.ch);
 end;
 m.init(k1);
 WriteLn('Vvedenniy massiv');
 m.print1;
 WriteLn('Sredee chislo',m.srch);
 WriteLn('Srednee kolichestvo',m.srk);
 ReadLn;
end.

unit Unit1;
interface
   Type Number=object
     n:extended;
     ch:char;
     procedure init(n1:real;ch1:char);
     procedure print;
     function k:integer;
   end;
implementation
procedure Number.init(n1:real;ch1:char);
 begin
  n:=n1;
  ch:=ch1;
 end;
procedure Number.print;
 begin
  WriteLn('n=',n);
  WriteLn('ch:',ch);
 end;
function Number.k;
 var x:integer;
 begin
  k:=0;
  x:=Trunc(n);
  While x>=1 do begin
   x:=x div 10;
   k:=k+1;
  end;
  Result:=k;
 end;
end.